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SUMMARY 


The  purpose  of  this  task  was  to  provide  the  artillery  with  a  program  for 
computing  the  meteorological  messages  from  pilot  balloon  observations. 

A  pilot  balloon  is  a  small  balloon  whose  ascent  is  followed  by  a  theodolite 
to  obtain  data  for  computation  of  the  speed  and  direction  of  the  winds  in  the 
upper  air. 

This  document  is  a  description  of  the  software  contained  in  the  OL-192  PIBAL 
Meteorological  Data  Reduction  Program  and  is  intended  to  supply  complete 
program  description,  file  definitions,  variable  descriptions,  flow  charts, 
and  program  listings.  This  program  was  written  for  the  Hewlett  Packard  9825A 
Calculator,  and  is  the  basis  for  the  project  which  is  now  under  configuration 
management.  Any  changes  to  this  program  must  be  accomplished  by  an  Engineer¬ 
ing  Change  Proposal. 

Program  Identification  Data 

Product  Improvement  Plan:  78-07-020-1 

Program  Title:  PIBAL  Meteorological  Data  Reduction  Program  for  the  Hewlett 
Packard  9825A  Calculator. 

Programming  Personnel:  Raymond  Bellucci 

Originating  Department:  Combat  Surveillance  &  Target  Acquisition  Laboratory, 

ERADCOM,  Fort  Monmouth,  New  Jersey  07703 
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1 .  PROGRAM  DESCRIPTION 


Purpose:  A  PI8AL  solution  for  determining  meteorological  messages  from 
single  theodolite  measurements  has  been  added  to  the  software  of  the  original 
OL-192  program.  PIBAL  measurements  are  required  by  the  Artillery  for  develop¬ 
ing  Sound  Ranging  messages  and  for  use  in  areas  where  it  is  impossible  to  use 
electronic  equipment. 

Use:  The  PIBAL  version  of  the  OL-192  is  used  by  the  Artillery  meteoro¬ 
logical  section  to  convert  the  angular  data  obtained  by  tracking  a  pilot 
balloon  by  a  single  theodolite  ML-474.  Input  is  entered  from  the  calculator's 
console  for  near  real  time  computation.  Departure  tables  for  each  of  11  re¬ 
gions  of  the  world  are  stored  in  the  program  cassettes,  providing  the  temper¬ 
ature-pressure-density  information  for  the  meteorological  messages. 

Physical  Description 

Hewlett-Packard  9825A  Calculator 


Displays: 


Light  Emitting  Diodes  (LED)  -  32-character  data  display  to 

prompt  the  operator. 


Strip  Printer 


-  Prints  16-character  wide  hard 
copy  listing  of  programs, 
entries  and  messages. 


Live  Keyboard 


-  Permits  use  of  the  computer 
while  a  program  is  running. 


Audio  Beeper 


-  Alerts  operator  for  data 
inputs. 


Remex  Reader/Perforator 


Tape  Reader: 


Tape  Material  :  8-channel,  1-inc.h  wide  ASCII,  Mylar  or 
paper. 


Speed  :  300  characters  per  second. 

Tape  Form  :  Loop  or  strip. 

Tape  Direction:  Left  to  right. 

Perforator : 

Tape  Material  :  8-channel,  1-inch  wide,  ASCII,  Mylar  or 
paper. 

5-channel,  11 /16-inch  wide,  BAUDOT, 
Mylar  or  paper. 

Speed  :  120  characters  per  second. 

Tape  Form  :  1,200-foot  roll  (2-inch  core). 


Reader/Perforator  Rewind 

Winds  punch  data  tapes  for  ease  of  storage. 

LED  Display  and  Audible  Beep  Interpretation. 

Types  of  displays  and  beeps 

1.  Verification  of  data  entered  prompt:  displays  data  for  verification 
and  ends  with  a  question  mark  (?).  The  YES  and  NO  keys  are  activated  and 
there  is  one  audible  beep. 

2.  Entry  of  data  prompt:  displays  ENTER,  type  of  data  entry,  and  a  range 
of  entry  data  values.  There  are  two  audible  beeps. 

3.  Action  prompt:  displays  the  type  of  action  required.  There  are  three 
audible  beeps. 

Flag  Definitions  (True/False) : 

Flag  0:  Optional  output. 

Flag  1:  Figures  output  on  BAUDOT  code  (TTY-76) /no  figures  output. 

Flag  2:  Letters  output  on  BAUDOT  code  (TTY-76) /no  letters  output. 

Flag  3:  No  delete/delete. 

Flag  4:  Paper  tape  reader-perforator  on/off. 

Flag  5:  Figures  mode  on  BAUDOT  code  (TTY-76) /no  figures  mode. 

Flag  6:  Letters  mode  on  BAUDOT  code  (TTY-76) /no  letters  mode. 

Flag  7:  TTY-76  code  (BAUDOT). 

Flag  8:  UGC-74  code  (ASCII). 

Flag  9:  Continue  f light /flight . 
a.  System  Flow 

The  general  flow  of  the  PIBAL  program  is  controlled  by  a  Master  Super¬ 
visory  File  and  the  Special  Function  Keys.  When  the  calculator  is  turned  on 
and  the  program  cartridge  is  seated,  the  calculator  will  automatically  load 
an  initiating  program  and  begin  running  the  program.  The  program  prints  the 
program  title,  version  date,  tape  number  and  counter  number.  It  then  loads 
the  functional  key  definitions  from  file  1  (see  Table  1  for  description  of 
the  special  function  keys) .  The  initiating  program  prompts  the  operator  to 
press  one  of  the  upper  row  keys  that  activates  the  PIBAL  routine.  The  first 
6  functional  keys  are: 


] . 

fO 

START 

PRESS 

PIBAL. 

2. 

fl 

CONT 

PRESS 

PIBAL. 

3. 

f  2 

LAST  FLT  - 

PRESS 

PIBAL. 
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4. 

f3 

P.  TAPE 

-  PRESS  PIBAL. 

5. 

f4 

TAC  FIRE 

-  PRESS  PIBAL. 

6. 

f5 

PIBAL 

-  PIBAL  PROGRAM  LOADED. 

other 

six 

functional  keys 

are  activated  by  the  individual  routines 

are: 


7. 

f6 

INFO 

-  PRESS  PIBAL. 

8. 

f7 

OUTPUT 

-  LAST  FLIGHT  ENTERED. 

9. 

f8 

DELETE 

-  Delete  message. 

10. 

f9 

NO 

-  No  answer  key. 

11. 

flO 

YES 

-  Yes  answer  key. 

12. 

fll 

DATA  IN 

-  Used  to  input  data  into  calculator. 

An  operator’s  flow  chart  and  a  system  flow  chart  showing  the  interconnection 
of  the  routines  is  in  section  4. a  (pg.  23). 

The  OL-192  P1BAL  program  is  divided  into  three  logical  sections. 

1.  Preflight  (surface  data). 

2.  Flight  (inflight  data  reduction). 

3.  Output  (meteorological  messages). 

The  preflight  section  is  entered  when  the  operator  presses  the  "PIBAL"  Key. 
After  the  preflight  section,  the  program  enters  the  flight  section.  The  Out¬ 
put  section  is  entered  automatically  after  the  operator  keys  in  an  *  during 
the  flight  section  or  when  20  levels  of  data  have  been  entered.  Pressing  the 
OUTPUT  key  any  time  prior  to  entering  an  *  results  in  a  last  flight  OUTPUT. 


b.  Prefiight  Section 

The  preflight  section  is  entered  by  pressing  the  "PIBAL"  key.  Pressing 
the  "START"  or  any  of  the  upper  row  keys  prompts  the  operator  to  press  the 
"PIBAL"  key.  The  preflight  routine  prompts  the  operator  through  entry  of  the 
Date-Time  Group,  surveys  of  the  launch  site,  surface  data,  balloon  weight  and 
gas  used  for  balloon  inflation. 


( 1)  Date-Time  Group 

The  Date-Time  Group  routine  prompts  the  operator  to  enter  the  year, 
month,  day  and  time  in  GMT  (ZULU)  and  the  Local  Standard  Time  and  assembles 
the  Date- Time  Group.  The  group  is  used  to  update  the  flight  date,  survey 
date  and  last  flight  date.  The  DATE-TIME  Group  is  stored  in  D$. 

(2)  Survey  Data 

In  this  routine  the  operator  enters  the  station  elevation,  latitude, 
longitude  and  quadrant  (see  Table  2).  The  routine  prints  the  survey  data  for 
verification  and  flight  record.  It  updates  P$  and  the  flight  launch  site 
date  0$.  In  the  messages, the  headers  contain  the  site  identification. 
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(3)  Launch  Data 


This  routine  calculates  the  geopotential  height  constant,  enters  azi¬ 
muth  offset,  horizontal  distance  offset,  surface  wind  direction,  surface  wind 
speed,  surface  pressure  and  surface  wet  and  dry  bulb  temperatures.  The  bal¬ 
loon  weight  and  the  type  of  gas  used  for  inflating  the  balloon  is  also  entered 
in  this  routine.  These  values  are  verified  and  stored  in  array  A(*) .  In  the 
flight  section  they  will  be  stored  in  array  F(*) . 

c .  Flight  Section 

All  the  flight  data  are  entered  in  this  section.  These  data  include  time, 
elevation  angle,  and  azimuth  angle  of  the  balloon  in  flight.  The  program  is 
initiated  after  the  balloon  weight  and  type  of  gas  used  for  inflation  of  the 
balloon  are  entered.  If  the  program  determines  that  a  zone  height  has  been 
passed,  it  calculates  the  zone  level  times,  azimuth  and  elevation  angles  from 
an  interpolation  routine  which  stores  these  values  in  array  H(*) . 

(1)  Zone  Information  Section 

This  section  is  entered  into  automatically  after  20  levels  of  data 
have  been  inputted  or  if  an  *  is  entered  during  the  DATA-IN  procedure.  Zone 
level  data  consisting  of  wind  speed  and  direction  for  each  zone  centered  at 
the  midpoint  of  the  zone  together  with  the  time,  elevation  and  azimuth  angles 
of  the  balloon  at  the  top  of  the  zone  are  printed  out.  This  information  pro¬ 
vides  the  operator  with  a  check  on  the  validity  of  his  data. 

(2)  Departure  Tables  Section 

At  this  time  the  operator  selects  the  region  of  interest  by  entering 
the  region  number.  The  departure  table  for  the  selected  region  is  printed 
out  on  hard  copy. 

(3)  Output  Type 

At  this  time,  the  operator  decides  whether  he  wants  a  punched  tele- 
tape  copy  of  the  messages.  It  will  be  in  the  TTY-76  (BAUDOT  code  -  5  channel  - 
11/16-inch  tape:  see  Table  3).  When  punching  BAUDOT  tape,  the  OUTPUT  section 
converts  the  ASCII  code,  used  internally  by  the  calculator,  to  BAUDOT  using  a 
string  array  of  64  characters.  The  character  is  looked  up  in  the  array  H$. 

The  position  converts  into  a  number  between  0  and  31.  The  figures  and  letters 
mode  is  determined  by  the  32-character  subarray  in  which  the  character  is  found. 
If  the  character  is  not  in  the  respective  mode,  the  mode  key  (figures  or  let¬ 
ters)  is  punched  before  punching  the  character. 

d.  OUTPUT  Section 


This  section  is  entered  from  the  Departure  Tables  section.  The  Output 
program  produces  meteorological  messages  from  the  flight  data  in  the  flight 
level  array  F(*)  and  the  zone  level  array  H(*)  tables  that  were  entered  in 
the  Flight  section.  The  OUTPUT  section  computes  and  outputs  the  following 
messages  from  the  current  flight: 


SOUND  RANGING 

COMPUTER  MET  (FADAC  M-18) 

FALLOUT 
BALLISTIC  3 
BALLISTIC  2 

(1)  Sound  Ranging  Message 

The  general  requirement  is  to  determine  the  windspeed  and  direction 
in  four  layers  from  the  surface  to  800  meters  and  to  determine  the  virtual 
temperature  at  a  height  of  200  meters.  The  data  transmitted  are  the  effec¬ 
tive  temperature,  effective  wind  direction,  effective  windspeed  and  the  time 
of  release.  The  effective  temperature  is  the  sonic  temperature  at  200  meters. 
For  the  effective  wind  direction  and  speed,  the  sound  ranging  layer  wind  cal¬ 
culations  are  the  weighted  and  summed  X,  Y  wind  components  for  the  surface, 
200,  400,  600  and  800  meter  levels: 


(a)  The  Weighting  Factors  are: 


Structure 

Height  Surface 

200 

400 

600 

800 

Normal 

0.2 

0.5 

0.15 

0.075 

0.075 

2 

0.4 

0 

0.3 

0.15 

0.15 

3 

0 

1.0 

0 

0 

0 

4 

0 

0 

1.0 

0 

0 

Normal  Structure  - 

The  400-meter  layer 
layer  wind. 

wind  is 

one  to 

two  times 

the  200-meter 

Structure  2 

The  400-meter  layer 

wind  is 

greater 

than  two 

times  the 

200-meter  layer  wind. 

Structure  3  -  The  400-meter  layer  wind  is  less  than  the  200-meter  layer 

wind  and  within  two  knots  of  the  surface  wind. 

Structure  4  -  The  400-meter  layer  wind  is  less  than  the  200-moter  layer 

wind  and  not  within  two  knots  of  surface  wind. 

(b)  Sound  Ranging  Message  Format 

METS  RQXXXXXX 

YYGGGV+TTTDDDFF 

9 

METSR  Identifying  prefix  for  sound  ranging  message. 

Q  Octant  of  the  globe  (0  to  8  not  4) ,  9  if  location  is 

coded. 


XXXXXX  Location  of  reporting  station.  The  first  three  digits  en¬ 
code  latitude  and  the  last  three  encode  longitude  in  de¬ 
grees  and  tenths  of  degrees. 
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YY  Day  of  month  (£1  to  31). 

GGG  Hour  of  valid  period  (GMT)  in  tens,  units  atad  tenths  of 

hours  (000  to  239) . 

V  Length  of  valid  period  in  hours  (1  to  8) ,  9  equals 

12  hours.  (Set  to  0)  . 

+TTT  Effective  temperature  to  nearest  l/10th  degree  C 

(-499  to  +499) . 

DDD  Effective  wind  direction  in  tens  of  mils  (001  to  640) . 

(000  for  calm  wind) . 

FF  Effective  wind  speed  in  knots  (00  to  99) . 

9  Message  terminator.  (Punch  output). 

(2)  Computer  Meteorological  Message  (FADAC  M-18) 

The  computer  message  differs  from  the  ballistic  (NATO)  message  in 
that  the  zoning  structure  is  different,  the  zone  values  are  not  weighted,  and 
the  weather  elements  are  reported  as  true  values  instead  of  weighted  percent 
of  standard.  The  elements  reported  for  each  of  the  26  zones  (see  Table  5) 
are  wind  direction,  wind  speed,  virtual  temperature,  and  the  zone  midpoint 
pressure. 


Computer  Meteorological  Message  Format 

METGMQXXXXXX 

YYGGGVHHHPPP 

ZZDDDFFFTTTTRRRR 

xxxxxxxxxxxxxxxx 

26DDDFFFTTTTRRRR 

9 

METCM  Identifying  prefix  for  computer  message. 

Q  Octant  of  the  globe. 

XXXXXX  Location  of  reporting  station.  The  first  three  digits 
encode  latitude  and  the  last  three  encode  longitude  in 
degrees  and  tenths  of  degrees. 

YY  Day  of  month  (01  to  31) . 

GGG  Hour  of  valid  period  (GMT)  in  tens,  units  and  tenths 

(000  to  239). 

V  Length  of  valid  period  hours  (1  to  8),  9  equals  12 

hours.  (Set  to  0). 

HHH  Altitude  of  meteorological  datum  plane  in  tens  of 

meters  above  mean  sea  level. 
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Station  pressure  to  nearest  millibar  (omit 
thousands  digit) . 

Line  number  for  message  (00  to  26) . 

Zone  wind  direction  in  tens  of  mils  (001  to  640) 

(000  for  calm  wind) . 

Zone  wind  speed  in  knots  (000  to  999) . 

Zone  virtual  temperature  to  nearest  0.1  degree  R 
(0000  to  5000). 

Zone  midpoint  pressure  in  millibars  (0000  to  1100). 
Message  terminator  (Punch  output) . 

Missing  data  indicator. 

(3)  FALLOUT  Message 

The  Meteorological  Message  for  fallout  contains  the  average  vector 
wind  for  each  2,000  meter  zone  from  the  surface  to  a  height  of  30,000  meters 
(see  Table  5).  The  average  wind  for  each  2,000-meter  zone  is  reported  to  the 
nearest  one  knot  and  to  the  nearest  10  mils.  The  distance  traveled  in  each 
fallout  zone  is  calculated  from  the  zone  level  data  and  an  average  speed  and 
direction  are  computed.  Fallout  winds  are  not  weighted: 

Fallout  Message  Format 

METFMQXXXXXX 
Y  Y  GGGVHHH  TRO 
ZZDDDFFF 
xxxxxxxx 
15DDDFFF 
9 

METFM 

Q 


XXXXXX 


YY 

GGG 


Identifying  prefix  for  fallout  message. 

Octant  of  the  globe  (0  to  8  not  4) ,  9  if  location 
is  coded. 

Location  of  reporting  station.  The  first  three  digits 
encode  latitude  and  the  last  three  encode  longitude  in 
degrees  and  tenths  of  degrees. 

Day  of  month  (01  to  31) . 

Hour  of  valid  period  (GMT)  tens,  units  and  tenths 
(000  to  239). 


PPP 

ZZ 

DDD 

FFF 

TTTT 

RRRR 

9 

/ 


V 


Length  of  valid  period  (1  to  8) ,  9  equals  12  hours 
(bet  to  0) . 


HHH  Altitude  of  meteorological  datum  plane  in  tens  of 

meters  above  mean  sea  level  (000  to  999) . 

ZZ  Line  number  for  fallout  data  (00  to  15) . 

DDD  Wind  direction  to  nearest  10  mils  (001  to  640) 

(000  for  calm  winds) . 

FFF  Wind  speed  in  knots  (000  to  999) . 

9  Message  terminator  (Punch  output). 

/  Missing  data  indicator. 

TRO  Filler  for  fallout  message. 

(4)  Ballistic  Meteorological  Messages 

The  ballistic  message  is  a  measure  of  the  parameters  of  the  atmos¬ 
phere,  a  comparison  of  the  current  conditions  with  standard  conditions,  and 
a  report  of  the  variations  in  terms  of  weighted  percents  of  standard  (see 
Tables  6  and  7) .  The  average  wind  speed  and  direction  for  each  of  the  atmos¬ 
pheric  zones  are  determined.  The  zone  values  of  density  and  temperature  are 
compared  with  the  standard  zone  values  and  variations  from  the  standard  are 
determined.  The  variations  from  standard  are  then  weighted  according  to 
specified  zone  weighting  factors.  These  mean  weighted  quantities  are  the 
ballistic  values. 

Two  general  categories  of  trajectories  have  been  established: 

Type  3  -  surface  to  surface  (see  Table  8  for  weights) . 

Type  2  -  surface  to  air  (see  Table  9  for  weights) . 

Ballistic  Message  Format: 

ME  TBK  QXXXXXX 
YYGGGVHHHPPP 
ZZDDF  FTTTRRR 
xxxxxxxxxxxx 
15DDFFTTTRRR 
9 

METB 
K 


Q 


XXXXXX 

YY 


Identifying  prefix  for  ballistic  messages. 

Type  of  message  (the  value  of  K  may  be  2  for  ballistic 
met  2,  or  3  for  ballistic  met  3) . 

Octant  of  the  globe  (0  to  8  not  4) ,  9  when  station  is 
coded. 

Location  of  reporting  station. 

Day  of  the  month  (01  11). 


GGG  Hour  of  beginning  valid  period  (GMT)  tens,  units,  and 

tenths  (000  to  239) . 

V  Length  of  valid  period  hours  (1  to  8),  9  equals  12 

hours  (Set  to  0) . 

HHH  Altitude  of  meteorological  datum  plane  in  tens  of 

meters  above  mean  sea  level. 

PPP  Station  pressure  in  percent  of  ICAO  standard  to 

nearest  0.1  percent  (000  to  999). 

ZZ  Line  number  for  ballistic  information  (00  to  15). 

DD  Ballistic  wind  direction  in  hundreds  of  mils  (01  to  64) 

(00  for  calm  wind) . 

FF  Ballistic  wind  speed  in  knots  (00  to  99) .  When  wind 

speed  equals  or  exceeds  100  knots,  add  80  to  the 
line  number. 

TTT  Ballistic  temperature  in  percent  of  ICAO  standard  to 

nearest  0.1  percent  (000  to  999),  drop  hundreds  digit. 

RRR  Ballistic  density  in  percent  of  ICAO  standard  to  the 

nearest  0.1  percent  (drop  hundreds  digit). 

9  Message  terminator  (Punch  output) . 

/  Missing  data  indicator, 

e.  Tables: 

TABLE  1.  -  SPECIAL  FUNCTION  KEYS 

FQ  -  START  -  Tells  operator  to  press  PIBAL  Key. 

Fi  -  C0NT  -  Tells  operator  to  press  PIBAL  Key. 

F2  -  LAST  FLT  -  Tells  operator  to  press  PIBAL  Key. 

F3  -  TAC  FIRE  -  Tells  operator  to  press  PIBAL  Key. 

F4  -  P.  TAPE  -  Tells  operator  to  press  PIBAL  Key. 

F5  -  PIBAL  -  Starts  PIBAL  Program. 

Fg  -  INFO  -  Tells  operator  to  press  PIBAL  Key. 

F7  -  OUTPUT  -  Activates  whenever  operator  presses  OUTPUT  key. 

When  pressed,  LED  display  prompts  the  operator 
to  turn  on  the  tape  perforator,  if  punched  copy 
of  all  meteorological  messages  is  desired.  The 
computer  outputs  printed  hard  copies  of  all  mete- 
.  orological  messages  of  The  LAST  FLIGHT  ENTERED. 
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F8 

-  DELETE 

-  Activates  after  operator  presses  NO  or  STOP 
key.  Deletes  puncii/print  of  all  unwanted 
meteorological  messages. 

F9 

-  NO 

-  Used  as  verifier  key,  causes  repeat  of  data 
input  sequence. 

F10 

-  YES 

-  Used  as  verifier  key,  entered  data  are  saved 
and  printed  for  the  flight  record. 

F11 

-  DATAIN 

-  Enters  data  into  calculator. 

TABLE  2.  OCTANT  OF  GLOBE  WHERE  STATION 

IS  LOCATED 

0 

0°  -  90° 

West  Longitude 

North  Latitude 

1 

90°  -  180° 

II 

If 

2 

180°  -  90° 

East  Longitude 

II 

3 

90°  -  0° 

II 

11 

4 

Not  used 

5 

0°  -  90° 

West  Longitude 

South  Latitude 

6 

90°  -  180° 

II 

II 

7 

180°  -  90° 

East  Longitude 

11 

8 

90°  -  0° 

II 

II 

9 

Coded  location 

indicator 

TABLE  3. 

BAUDOT  CODE  (TTY- 76) 

Binary 

Letters 

Figures 

Binary 

Letters 

Figures 

0 

Null 

Null 

16 

E 

3 

1 

T 

5 

17 

Z 

II 

2 

CR 

CR 

18 

D 

$ 

3 

0 

9 

19 

B 

7 

4 

Space 

Space 

20 

S 

Bell 

5 

H 

# 

21 

Y 

6 

6 

N 

9 

22 

F 

i 

• 

7 

M 

* 

23 

X 

/ 

8 

LF 

LF 

24 

A 

- 

9 

L 

) 

25 

W 

2 

10 

R 

4 

26 

J 

i 

11 

G 

& 

27 

FI 

FI 

12 

I 

8 

28 

U 

7 

13 

P 

a 

29 

Q 

1 

14 

C 

: 

30 

K 

( 

15 

V 

> 

31 

LE 

LE 

CR  -  Carriage  return;  LF  -  Line  feed;  FI  -  Figures;  LE  -  Letters. 
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TABLE  5.  STANDARD  BALLISTIC  ZONE  DENSITIES 

Zone  No.  0  1225.0 

1  1213.3 

2  1184.4 

3  1139.2 

4  1084.6 

5  1032.0 

6  957,0 

7  863.4 

8  777.0 

9  697.4 

10  590.0 

11  467.0 

12  364.8 

13  266.6 

14  194.8 

15  142.3 
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Zone  No.  0 
1 
2 

3 

4 

5 

6 


! 


7 

8 


I. 


9 


t 

c 


10 


li 


12 

13 

14 


288.2 

287.5 
285.9 
283.3 
280.0 

276.8 

271.9 

265.5 
259.0' 

252.5 

242.7 

229.8  k 

216.8 
216.7 
216.7 
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TABLE  7.  TEMPERATURE  WEIGHTING  FACTORS  (TYPE-3  MESSAGE)  (SURFACE-TO-SURFACE  TRAJECTORIES) 


H  fO  M 
sCf  CN  M 

•  ft 


O'  vO  ON  o> 

in  m  h  o 

•  •  •  • 


in  h  h  ^  oi 

i^NhOOO 


MH  OW  M/1N 
CO  id  oi  N  o  o  o  o 


CM  vp:  */*> 

^•O  O 


cO  cm  Q  —»  a* 

CM  r-*  O 


lA  s£)  -4-  CM 

CM  M  i-H  iH  *H  *■— 4 


CO  ^  O'  00  CO  N  N 


^  <JC  <Ji  ON  00  « 

CM  ♦  *-*  O  Q  O  Q  O 


mMncM^oo'O'O' 

CM  t— {  *— 4  *h  «— ^  ih  O  O  O 


CM 

CM 

o\ 

h>. 

CO 

CM 

— <  -i  o 

o 

CO 

• 

CM 

• 

• 

•—4 

• 

• 

• 

«-H  iH  f— H 

*  <•■  • 

•« 

»n  m  n  o  ft:  n  so  *n  jA'  it,  «!»■ 

CsJr-Jf-HrHOOO^OOO 


CM 

CM 

r*-  co  ♦  <3\ 

rv 

UO 

in 

in 

*n 

m 

CO 

CM 

• 

r-t  *— 4  t— 4  O 

•  •ft 

o 

o 

o 

* 

o 

o 

o 

« 

m  o  cm  o  <r  ^  co  *— * 

CM  r^CM^rHOOOO 


col  c-  in  ia  N'4^a'r*inir)M‘in 
1  ^  n  cm  h  h  h  o  cro  O  O'  O  O 


ONOOOiAMNH^ 

OfM-^OOOOOO 


CM!  SH-<tvHCO\0\fi^fnr»NfO>f 

I  mrocM^Hf-HOOOOOOOOO 


<U  ^ 

CS  <u  m 

a  *s  t 

p  r-4  cm  co  <r  w^vor^ooo' 
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HOONinH00'O‘A4*OHMfMN 

* _ 4^000000000 

Q>  ^  f-4 

{2  Qi 

f-46  O  CM  CO  MT  uO 

3HC'Jn»JlAvONQO(jNHHHHHt-< 

zz 


LA 


►02 


I 


t 


2.  FILE  DESCRIPTION 

The  Hewlett-Packard  cartridge  has  two  tracks  of  125K  bytes  for  recording 


programs 

and  data. 

The  titles  on  these  tracks  and  size  of  these  files  follow 

a. 

Track  0 

Section 

File  0 

Master  Supervisory  File 

) 

Command 

File  1 

Functional  Key  Definitions 

) 

supervisor 

File  2 

Master  Data  File  Library 

) 

Files  3 

to  65  inc:  Departure  Tables 

) 

Data 

b. 

Track  1 

Section 

File  0 : 

PIBAL  Program 

) 

File  1 : 

P$,  Q$>  0$,  L$ ,  N$,  G$ ,  D$ 

) 

PIBAL 

File  2 : 

R(*) ,  Y (*) 

) 

File  3 : 

H(*) ,  D(*) 

) 

File  4: 

Sound  Ranging,  Computer  meteorology,  ) 

fallout,  ballistic  3 

) 

Output 

File  5: 

Ballistic  2 

) 

File  6: 

Departure  Table  Input  Program 

File  7 

thru  40:  Departure  Tables,  Z$ 

) 

Data 

c. 

T  List  Files 

The  following  is  a  t  list  of  the  files  on 

tracks  0 

and  1  showing 

the  size 

of  the  files  and  the  amount  of  bytes  stored 

in  each 

file. 

T  LIST  TRACK  0 

T  LIST  TRACK  1 

trk  0  Bytes 

Size  trk  1 

Bytes 

Size 

itO 

ito 

6 

664 

1000  6 

13898 

15000 

H 

#1 

5 

682 

1000  3 

420 

500 

it  2 

it  2 

3 

2106 

2106  2 

2992 

4000 

it  3 

thru  #65 

it  3 

3 

2106 

2106  2 

1776 

3000 

it  4 

6 

13196 

15000 

it  5 

6 

6700 

7000 

#6 

6 

2564 

3000 

it!  thru  it A0 

3 

2106 

2106 
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VARIABLE  DESCRIPTION 


Array  Variables 


dim  A(12)  --  Launch  Values 


Azimuth  offset  at  launch. 

Horizontal  distance  offset. 

Surface  wind  direction. 

Surface  wind  speed. 

Balloon  weight. 

Surface  pressure. 

Surface  temperature. 

Surface  density. 

Virtual  temperature. 

Saturation  vapor  pressure  at  dry  bulb  temperature 
Surface  relative  humidity. 

Actual  vapor  pressure. 

Sound  Ranging  Values 


B(l)  =  Zone  1  wind  speed. 

B(2)  *  Zone  2  wind  speed. 

B(3)  =  Zone  3  wind  speed. 

B(4)  =  Zone  4  wind  speed. 

B(5)  =  Zone  1  wind  direction. 

B(6)  =  Zone  2  wind  direction. 

B(7)  =  Zone  3  wind  direction. 

B(8)  =  Zone  4  wind  direction. 

B(9)  =  Surface  wind  speed. 

B(10)  =  Surface  wind  direction. 

B ( 1 1 )  thru  B(15)  not  used. 

C(0:16,  1:14)  -  Ballistic  Weights  and  Values 
0:16  -  zones  where  0  —  surface 

1-15  ■«  lines 

C(N,1)  =  Zone  level  number. 

C(N,2)  =  Wind  speed, 

C(N,3)  *  Temperature. 

C(N,4)  *  Pressure. 

C(N,5)  =  Wind  azimuth. 

C(N,6)  =  %  of  standard  temperature. 

C(N,7)  *  Weighted  ballistic  3  temperature. 

C(N,8)  =  Weighted  ballistic  2  temperature. 

C(N,9)  =  Densities. 

C(N,10)  =  %  of  standard  density. 

C(N,11)  =  Weighted  ballistic  3  densities. 

C(N,12)  =  Weighted  ballistic  2  densities. 

C(N,13)  =  Weighted  ballistic  3  or  2  X  wind  component 

C(N,14)  =  Weighted  ballistic  3  or  2  Y  wind  component 


D(0:29)  -  Zone  Heights  in  OUTFIT 


at  -1  level 


£L 

it  2 

ill 

ill 

#5 

#6 

Azimuth  offset  Horizontal 

First 

Second 

Third 

Fourth 

distance 

Missing 

Missing 

Missing 

Missing 

Mandatory 

Mandatory 

Mandatory 

Mandatory 

at 

0  level 

1-60  levels 

#1 

11 

ill 

ill 

ill 

ill 

Temperature 

Humidity 

Temp  virt 

Pressure 

Time  min 

Geopotential 

°C 

% 

6K 

mb 

height  meters 

dim  H(- 

-2:45,  1:6)  - 

-  : 

Zone  Height  Data 

at 

-2  level 

#1 

11 

ill 

HI 

it  5 

#6 

Counter 

SFC  Wind 

SFC  Wind 

Direction 

Speed 

at 

-1  level 

1tl_ 

n 

ill 

ill 

ill 

ill 

SFC 

SFC  temp 

Azimuth 

Horizontal 

pressure 

Tv  °K 

Offset 

distance 

at 

0-45  levels 

11 

n 

ill 

ill 

ill 

ill 

Geometric 

log  press 

miscellan¬ 

top  of  zone 

top  of 

top  of  zone 

height 

eous 

time 

zone 

elevation 

azimuth 

angle 

angle 

Miscellaneous 

H(0,3) 

= 

Acceleration 

of  Gravity  Ratio  Constant. 

H(l,3) 

= 

P  =  zone  level. 

H(2,3) 

= 

T  =  significant  level. 

H(3, 3) 

= 

Missing  angle 

s  indicator. 

H(4,3) 

= 

Angle  time  interval  (0.1,  0 

>•  5 ,  1.0). 

H(5,3) 

= 

Last  correct 

time  of  angles 

;  . 

H(6 ,3) 

= 

Last  correct 

elevation  angle. 

H(7,3) 

as 

Last  correct 

azimuth  angle. 

H(3,3) 

■ 

Time  below  zone. 

0(9,3) 

- 

Elevation  angle  below  zone. 

H( 10,3) 

= 

Azimuth  angle 

below  zone. 

H(ll,3) 

* 

Time  above  zone. 

H( 12, 3) 

= 

Elevation  angle  above  zone. 

H(13,3) 

- 

Azimuth  angle 

above  zone . 

H(14,3) 

3* 

Reference  time  below  zone. 

H(15,3) 

= 

Reference  time  above  zone. 

A$,  B$,  C$  -  string  areas. 

D$(16)  -  date  of  flight. 

Date-Time  Group  Format: 

DDVSTTTTZUMMMtfYYH  DD  -  numerical  day  of  mon 

TTTT  -  time  value  (0001  to 
MMM  -  alphabetic  designati 
(JAN-DEC) . 

YY  -  year  (00  -  99) . 

-  blank. 

-  string  array  for  linearity. 

-  wind  data  strings. 

-  recorder  check  linearity  data. 

-  Baudot  conversion  array. 

-  recorder  check  date- time  group. 

-  recorder  serial  number. 

-  previous  survey  date-time  group. 

-  computer  met  data. 


E$  (16) 

F$  (15) 

G$  (192) 

H$  (2,32) 

L$  (16) 

N$  (6) 

0$  (16) 

Z$  (10,208) 


dim  P$(102)  -  Header  Array 


P$  (1,12) 

P$  (13,24) 

P$  (25,36) 

P$  (37,48) 

P$  (49,60) 

P$  (61,72) 

P$  (73,84) 

P$  (85,99) 

P$  (100,100) 
P$  (101,101) 
P$  (102,102) 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

n 

12 

M 

E 

T 

C 

M 

El 

El 

El 

El 

El 

EB 

IT 

>  Co 

'i 

Y 

G 

G 

0 

0 

0 

El 

a 

a 

EB 

B 

M 

E 

T 

B 

H 

El 

Q 

El 

Q 

eb 

EB 

El 

NA 

M1 

E 

T 

B 

El 

El 

Q 

El 

a 

EB 

o 

El 

NA 

M 

E 

T 

F 

0 

El 

E9 

El 

a 

£9 

o 

El 

Fa 

Y 

Y 

G 

G 

0 

0 

El 

Ef 

Q 

m 

EB 

El 

M 

E 

T 

S 

0 

El 

O 

a 

n 

EB 

EB 

B 

So 

Y 

G 

G 

0 

O 

a 

a 

a 

EB 

EB 

ra 

El  Ell 

NOT  USED. 
NOT  USED. 
NOT  USED. 


c.  r-var iables 


Extensive  use  of  r-variables  rl  through  rl5  is  made  i 
messages.  These  variables  hold  the  weighting  factors  that 
density,  temperature,  and  wind  components.  They  represent 
1  to  15. 

4.  FLOW  CHARTS 


This  section  provides  f 


END 


■gure  1.  Operating  Instruction  Flow  Chart 

23 


Figure  2 


Autoload  and  Master  Supervisory  File 
(Track  0  File  O' 
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Figure  3.  Functional  Keys  and  Program  Flow. 


b.  Pibal  Program 

In  this  portion  the  preflight,  flight,  and  output  routine  flow  charts 
are  shown  in  figures  4a  -  4g. 
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Figure  4b.  PIBAL  -  continued  (2  of  7) 


/  Balloon! 


Enter 

Balloon 

Data 


166-168 


/  VerifyN 
Balloon 
\  WT  / 


169-170 


/N.  171-179 

Hydrogen  /Verif^vHe  and  30  G  Balloon 

- Type  of/" - • 

N.  Gas / 

tt  He  and 
j  100  G  Ba 1 loon 

/Rate  of  Rise  / 


'Rate  of  Rise  / 

Table  for  L _ 

He  and  30  G  f  186-190' 
Balloon  / 


100  G  Balloon 


Rate  of  Rise  / 

Table  for  / - 1 

H2  and  100  G/ 

Balloon  /  1 9 1  - 1 9 c 


30  Gram  Balloon 


Rate  of  Rise 
Table  for  / 
Ho  and  30  G  / 
Balloon  / 


PIBAL  > 
Observa- 


196-199 


Figure  Ae.  PIBAL  -  continued  (Ba!  Uuv.i  Tint'  '  (5  of  7) 


m 


Figure  4f.  PIBAL  ~  Continued  (PIBAL  Observations)  (6  of  7) 
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I  Region 


336 


33'/ 


336-343 


344-365 


366-400 


401-405 


Figure  4g.  PIBAL  -  Continued  (Computer  MEI  foi  Regions)  (7  of  7) 
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c.  Output  Program 


The  output  program  flow  charts  for  the  artillery  met  messages  are  shown 
in  figures  5a  -  5e. 


0-6 


7 


8-9 


10-25 


26-28 


97-104 


Figure  5a.  Output  Sound  Ranging,  Fallout,  Ballistic  MET  3 
(Track  1  File  4)  (1  of  5) . 


Ranging  j 


Computes 
|Wind  Speed  and| 
(Direction  for 
5  Zones 


105-118 


Load 

Structure 

Weight 

Factors 


119-122 


Calculate  Weighted 
|Sum  of  Surface,  200m, ( 
400m,  600m,  800m 
X,Y  Components 

T 


123-133 


Compute 
Effective 
jWind  Speed  and  | 
Direction 

I 


134-137 


Calculate 

Sonic 

Temperature 


138-142 


String 

Variables  & 

Print  Sound 
Ranging 

Message 


143-152 


Figure  5b.  Output  -  Continued  (2  of  5). 


153-161 


194-236 


237-247 


248-255 


264-270 


271-272 
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Figure  5d.  Output  -  continued  (4  of  5) 
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310-321 


322-  339 


340-355 
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Figure  5e.  Output  -  continued  (5  of  5) 
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Output  Ballistic  MET  2  (Track  1  File  5) 
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Figure  7.  Departure  Table  Input  Program  (Track  1  File  6) 
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Functional  Keys 

f0*=f  12 

*dsp 

f 1-f 13 

*dsp 

f 2*f 14 

*dsp 

f 3=f 15 

*dsp 

f 4=f 16 

*dsp 

f5-fl7 

*dsp 

f6=f 18 

"dsp 

f 7=f 19 

*dsp 

f 8=f20 

*dsp 

f9=f 21 

f 10=f 22: 

f ll=f23: 

"START-  -PRESS  PIBAL" 

"CONTINUATION-  -PRESS  PIBAL" 

"LAST  FLIGHT - PRESS  PIBAL" 

"TACFIRE-  -PRESS  PIBAL" 

"P.  TAPE-  -PRESS  PIBAL" 

"PROCESSING  PIBAL";  Trk  1;  ldp0 
"INFO - PRESS  PIBAL" 

"PROCESSING  MET  MESSAGES";  Trk  1;  ldp  4 
"DELETE" 

/-2tn>10 

/-ltntlO 

/ 
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FIBAL  PROGRAM.  DATED  23  JULY  1979 


INPUi  PROGRAM  ON  TRACK  1  FILE  0 


TRACK  1  FILE  0 


0:  sfg  Ojcfg  3 

1:  dim  A$(40]  f R  1 4 1  ,C$ [32] 

2:  dim  Z$[10,208] 

3:  dim  P$ ( 102] ,0$ ( 16] ,0$ ( 16] ,L$ [16] ,N$ [ 6] ,G$ [ 192]  ,D$ [ 16] 

4:  dim  P. (-1 : 60 , 1 :  6]  ,Y  (  2] 

5:  dim  H [-2: 29 ,1 : 6] ,D [0 : 29] 

6:  dim  A[12] 

7:  trk  l;ldf  1 ,  P$  ,0$  ,0$  ,L$  ,N$  ,G$ ,  D$ 

8:  trk  ljldf  2,F[*] , Y ( *] 

9:  trk  ljldf  3,H[*1 ,D[*] 

10:  fxd  Ojprt  "COUNTER", H(-2, 3] jspc  2 

11:  0*H]0,1] ;200-H[l,l] ; 400 -H [2,1] ;500-H[3,l] ;600-H[4,l] j800-H[5,l] 

12:  0*D|0]  ;200-D[l]  j400^D[2]  ;  500-^D  [3  ]  ;600+D|4)  ;800-D[5] 

13:  6* I ; for  J=100G  to  5000  by  500 ; J*H[ I ,1 ] *D ( I ] ; 1+1* I j next  J;15-I 
14:  for  J=6000  to  20000  by  1000 ; J-H[ I , 1 ] ♦D [I] ; I+l* I ; next  J 
15:  gto  +26 

16:  "BBB" :beep;wait  150;beep jwait  150 jbeep jwait  3000;ret 

17:  "DELETE" :cfg  3 ;dsp  "DELETING  ZONE  INFORMATION" ; ret 

18:  "Dl":fxd  1 ; 2*A; " "*A$ ;" 0"*A$[1 ,1 ] jbeep jwait  150jbeepjdsp  C$[l,32] 

\9:  ent  "",A$;if  A5H,1]="0"  or  A$[l,l]*"l"  or  A$  [  1 ,1] «"2" jgto  +9 

20:  if  A$ [ 1 , 1 ] =" 3"  ct  A$  ( 1  , 1]  *"  4*  or  A$[i,l]*"5"  or  A$  [  1 ,1]  «"6"  jgto  +8 

21:  if  A$ [ 1 , 1 ] *" 7"  nr  A>]1,1]»"8"  or  A$[l,l]*"9"  or  A$ [ 1 ,2 ] *" .0" jgto  +7 

22:  if  A$  [  1 ,2]  ="  .  1"  or  A$ [1 ,2]-" .2"  or  A$  [  1 ,2]  «■  .3"  or  A$ [1 ,2] ="  .4" jqto  +6 

23:  if  A$  [  1 ,2]  ="  .  5"  or  A$  [  1 ,2  ]  «="  .  6"  or  A$[l,2]=".7"  or  A$ [ 1 ,2 ] ="  . 8" jgto  +5 

24:  if  A$ ( 1 , 2 ] =" .9" jato  +4 

25:  if  A$ ( i ,7] *" *" ;qto  +279 

26:  stp 

27:  qto  -9 

28:  if  A# 2 ; q to  -10 

29:  val (A$) *Lj if  L<0;qto  -11 

30:  "  •♦C$[l,32] 

31:  ret 

32:  "Y/N" :2-A jbeep jdsp  C$[l,32]jent  "",A 

33:  if  Af-2tn*10  and  A#-ltn*10 jgto  -1 

34:  "  "^[l, 32] 

35:  ret 

36:  "R^P" :V (XX+YY) ♦R 

37:  atn (Y/ (X+le-90* (X*0) ) ) +2sgn (Y) *atn  (le99) * ( X<0)  *A 
38:  if  A<0j360+A*A 
39:  ret 

40:  "P*P" :Rcos (A ) ♦X j  Ps in (A ) *Y ; ret 

41:  "ENTER  YEAR  (1900  tc  1999) "♦C$jgsb  "DI" 

42:  if  L<1900  or  L>1999jqto  -1 
4  3:  val  (A$[ 3,4] ) -R [ 1 )  jA$ [3,4] *D$ [14,15] 

44:  "ENTER  NUMBER  OP  MONTH  (1  to  12)"+C$:gsb  "DI" 

5:  L-»R[2]jif  R(2]<1  cr  R[2]>12jgto  ~i 
^6:  " J ANFEBMAPAPPMAY J  UNJULAUOSEPOCTNOVDEC" *A$ 

47:  A$[3*R[2] -2,3*R[2J ] *D$[ 10,12] 

48:  31-Njif  R[2]-2j28-»;if  int  (R[l]’/4)  *R(l]'/4j  29*N 
49:  if  R[ 2] *4  or  R[2]*6  or  R[2]*9  or  R[2]-llj30*N 
*26420 
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50: 
51: 
52: 
53: 
54: 
55: 
56: 
57: 
58: 
59: 
60: 
61: 
62: 
63: 
64: 
65: 
66: 
67: 
68: 
69: 
70: 
71: 
72: 
73: 
74: 
75: 
76: 
77: 
78: 
79: 
80: 
81: 
82: 
83: 
84: 
85: 
86: 
87: 
88: 
89: 
90: 
9  IT 
92: 
93: 
94: 
95: 
96: 
97: 
98: 
99: 


sti (N) ♦A$;A$ [21 -*A$ [1] 

"ENTER  DAY  OF  MONTH  (1  to  "+C $  [  1 , 2  5 ]  ;  A$  [ 1 , 2 ]  -*C$  [  26 , 2 7 ) 

" ) " *C$ [ 28] ; qsb  "DI" 

L*R[3];if  P  f  3)  <1  or  R[3]>N;qto  -3 
if  R(3] >9;str (F[3] ) *D$[1,3] ;gtc  +2 
str (R [ 3] ) *D$[2,3] ;"0"*D$[2,2] 

D$[2,3)-D$[l,2] ;  "  "♦D$  [  3 , 3] 

2-*A;  "0"-*-A$;beep;wait  150;beep 

ent  "ENTER  ZULU  TIME  (0001  to  2400) "  ,A$ 

if  A#2  or  len  (A$)  #4  ;qto  -3 

val  (A$) -P (4] ; if  R ( 4 ] <1  or  R  [4] >2400  ;gto  -4 

if  frc(R(4]/100) >.59;qto  -5 

A$[l,4]+D$[4,7] ; " Z "♦ D$ [ 8 , 8 ] 

"IS  THE  DATE  "-C$ [ 1 ,12]  ; D$*C$ [ 13 ,29] ; " ?"*C$ [ 30] ;gsb  "Y/N" 
if  A=-2tn/'10  ;gto  -23 
dsp  D$[l,16] ;gsb  '"BBB" 
prt  "DATE: ■ ,D$;spc  2 

D$[l,2] -P$ [13,14] ;D$(4,5]*P$[15,16] ; " 00" -P$ [ 17 ,18] 
int (val (D$ (6,7] )/6) >A;str (A)*A$;A$[2,2]*P$[17,17] 

2*A; "0"*A$;beep;wait  150;beep 

ent  "ENTER  LOCAL  TIME  (0001  to  2400)"  ,A$ 

if  A#2  or  len  (A$) #4 ;gto  -3 

val (A$) +0;if  0<1  or  Q>2400;gto  -4 

if  frc (0/100) >. 59;gto  -5 

"IS  THE  TIME  "♦C$[l,12]  ; A$ [ 1 ,4 ] -C$ [ 13 , 16 ]  ;"?"*C$[17]  ;gsb  "Y/N" 

if  A®-2tn'>10;gto  -6 

dsp  C$ ( 1 ,16] ;qsb  "BBB" 

prt  "LOCAL  TIME: ",A$ [1,4] ;spc  2 

D$ [ 1 ,16] -0$  1 1 ,16] 

2* A; " "♦A$; " 0"*A$ [ 1 ,1] ;beep ;wait  150; beep 
dsp  "PERFORM  SURVEY  CONTROL" ;gsb  "BBB* 
ent  "ENTER  STATION  ELEVATION  (ireters)  "  ,A$ 
if  A#2;gto  -3 

if  val (A$) <-200  or  val <A$) >=450;ato  -4 
int  (val  (A$  [  1 ,4] ) /10+.  5)  ♦K? f xd  0 
if  K>*100?str (K) -P$[18,21] ; "0"-P$ (18 ,18] ;gto  +6 
if  K>=10;str (K) *P$ [19,21] ; "00“*P$ [18,19] ;gto  +5 
if  K>*0; str (K) ♦?$ [20,21] ;"000"*P$[18,20] ;gto  +4 
int  (abs(val(A$[l,4]  )/10-.5)  )-K;"0"-P$[18,19] 
if  K>=10;str (K) ♦P$[19, 21) ?"0-"-P$ [18,19] ;gto  +2 
if  K>*0; str (K) *P$ [20,21] ; "0-0"-P$ [ 18 ,20] 

"ENTER  LATITUDE  (0.0  to  90 . 0) "♦C$;gsb  "DI" 

if  L<0  or  L>90;gto  -1 

L-*K; str (K) -A$ [1,5] 

if  A*-2tn'>10 ;gto  -3 

A$[2,3] -P$[7,8] ;A$[5,5]-P$[9,9] 

if  K<10;"0"+P$[7,7] ;A$[2,2]*P$[8,8] ; A$ [ 4 ,4] *P$ [ 9 ,9] 

"ENTER  LONGITUDE  ( 07ITto'T9  r9]nr*CT;gs'B  '"b!" 
if  L<0  or  L>99.9;gto  -1 
L+K;str  (K) -A${1,5) 


*23345 
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100:  if  A*-2tn'10;gto  -3 

101:  A$[2,3}*P$[10,11|  ;A$[5,51*P$U2,12J 

102:  if  K<10;"0"*P$l  10,10]  ;  AS  [  2 ,2)  ♦  P$.  [  11 ,11]  ;  AS  (4 ,4  ]  [  12 ,12] 

103:  2-A;""-A$;  1,1]  ;beep;wait  150;beep 

ICT4:  enfc  "ENTER  OCTANT  (0  to  8  not  4)",A$ 

105:  if  A# 2  or  lep(A$)#l;gto  -2 

106:  if  val(A$)<0  or  val(A$)=4  or  val (AS) >8;gto  -3 
107:  A$[l,l]  -*P${6,6] 

108:  dsp  "SURVEY  DATA "  ; qsb  "BBB" 

109:  prt  "SURVEY  DATED:" ,0$ 

110:  fxd  0;pr t  "OCTANT: ", val (PS [6 ,6] ) 

111:  fxd  l;prt  "LATITUDE: ", val (PS [ 7 ,9] ) /10 
112:  fxd  l;prt  "LONGITUDE: ", val (PS [10 ,12] ) /10 
113:  fxd  0;val  (P$  (19,21}  )  *10-K;prt  "ELEVATION  ,K 
114:  "IS  SURVEY  DATA  CORRECT?"-C$ [ 1,32] jgsb  "Y/N" 

115:  if  A*-2tn‘'10;prt  " - REPEATING - ";gto  -36 

1I5V  PST'1 ,12T*p$  (28  ,29]  ;  H32"VP$140 ,41] 

117:  "FM"*P$ [ 52 ,53] ; " CM"-P$ [ 4 , 5 ] ; P$ [ 13 , 24 ] -P$ [ 61 , 72] j "TRO"*P$ ( 70 , 71] 

118:  P$(1,121*P$[73,84] ; "SR">P$ [76 ,77] 

119:  P$  [13,24 ]-»P$  (85,96)  ;  "  +TTTDDDFF"*P$.  [91,99] 

120:  spc  1 ;prt  "SfC  aIND  VALUES  AT  TIME  »»0"":n 
121:  "ENTER  AZIMUTH  OFFSET  AT  LAUNCH  "♦C$;gsb  "Dl" 

122:  L*A[l];if  L<=0  or  L>360;gto  -1 
'23:  prt  "  AZ  OFFSET", A [ 1] 

.24:  "ENTER  HORIZONTAL  DISTANCE  OFFSET"*C$?gsb‘  "Dl" 

125:  L*A[2];if  L<.1  or  L>1500jgto  -1 
126:  prt  "  HOP  DIS",A[2] 

127:  " ENTER  SFC  WIND  DIRECTION (deg . ) "♦C$;gsb  "DI" 

128:  L*A[3];if  L*0  or  L>360;gto  -1 
129:  prt  "  WIND  DIP",A|3] 

130:  "ENTER  SFC  WIND  SP£ED"-C$ ;gsb  "DI" 

131:  L*A[4];if  L<0  or  L>99;qtc  -1 
132:  prt  "  WIND  SPEED" , A [4 ]; spc  2 

I33:"wAPE  PRINTED  S F C" WIND  V ALU ES  O K  ?  * ♦  C $  f 1 , 3 2]  ; gsb  ’ h Y/N " 

134:  if  A=-2trTl0;ort  " - REPEATING - ";gto  -13 

135:  "ENTER  SURFACE  PRESS  AT  LAUNCH"*C$;gsb  ”DI" 

136:  L* A [6] ; if  L<650  or  L>1100;ato  -1 
137:  Dr t  "SFC  MET  VALUES:" 

138:  fxd  l;pr t  "PRESSURE" , A [6] 

139:  str  (prnd(A [6]  ,0) ) -A$; A$ ( 2 ,4 ] ♦ P$ [ 22 , 2 4 ] 

140:  if  A  [6]  >=1000;A$[  3, 5]-*  P$  [22, 24] 

141:  2+A; ""♦AS; " 0"+A$ [ 1 ,1] ; beep ;wa it  150;beep 
142:  ent  "ENTER  SFC  TEMPERATURE (degC) " ,A$ 

143:  if  A#2;gto  -2 

144:  if  val(A$)<-25  or  val (A$) >100 ;qto  -3 
145:  val  (A$ )  -*A  [ 7 ] 

146:  prt  "TEMPERATURE" , A [ 7] 

147;  2*A; " "♦AS; " 0"  +  A$ { 1 , 1]  ; beep  ;wait  150:beep 
148:  ent  "ENTEP  WET  BULB  TEMP (deqC) " ,A$ 

' <9:  if  A#2; g to  -2 
j.3233 
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150:  if  val  (A$) <-25  or  val ( A$) >100 ;gto  -3 
151:  val (A$) ♦A [9] 

152:  prt  "W  BULB  TEMP" , A [ 9] ; spc  2 
153:  "ARE  SFC  VALUES  OK  ?"*C$;gsb  "Y/N" 

154:  if  A*-2tn“10;prt  " - REPEATING - "  ;gto  -19 

155:  6 . 11*10 "  ( 7 . 5A [ 7] / ( 237 . 3+A [7 ] ) ) *A I 101 
156:  6.11*10“ (7.5A[9]/(237.3+A[9] ) ) -A  111] 

157:  .  00066  (1+.  0015A[9]  )  A  f  6]  (A  [7] -A  [9]  )  ♦A  [  12] 

158:  A [ 1 1 ] -A [  1 2  ]  ♦  A  [  1 2  ] 

159:  A [ 12] /A [ 10 ] -A [ 11] 

160:  100A [ 11] *G ; i f  G<0;0*G 
161:  if  G>100 ;  100  *G 
162:  fxd  0;prt  "HUM  %",G 

163:  (A[7]+273.16)/(1-.37803A  [  12]  /A  [6]  )  +  A  [9] 

164:  348. 3839 5A [  6]/A { 9] 12. 25* A [8] 

165:  fxd  l;prt  "SFC  DENSITY" ,A [ 8] ; spc  2 
166:  "ENTER  BALLOON  WEIGHT  (gms )  "*C'$;gsb  "DI" 

167:  L*A [5] ; i f  L#30  and  L#100;gto  -1 

168:  fxd  0;prt  "BALLOON  WGT" , A [ 5] ; spc  2 

169:  "IS  BALLOON  WEIGHT  OK  ?"*C$ [ 1 ,32] ;gsb  "Y/N" 

170:  if  A=-2tn“10 ;pr t  "—REPEATING - ";gto  -4 

171:  "WAS  HELIUM  USED  FOR  INFLATION?"*C$ t 1 ,32] ;gsb  "Y/N" 

172:  if  A*-ltn“10 ;pr t  "HELIUM" 

173:  if  A=-2tn“10;prt  "HYDROGEN" 

4:  if  A=-ltn“10  and  A[5]  *100 ;  101*A f 5] 

175:  if  A*-itn“10  and  A[5]  *30;  31*A[5] 

176:  if  A[5]=101;gto  +4 
177:  if  A[5] =31;gto  +9 
178:  if  A[5]=100;gto  +13 
179:  if  A[5]*30;gto  +17 

180 :  .  57T*H7 1,4  ]  ;  T.  I56T3I  [2 ,4  J ;  1 . 4688*B'1 3  ,4 1  ;T.  78I3*H  f4  ,4  ]  ;  2 . 4194  *H  [  5 , 4  ] 
181:  3 . 0667*H [ 6 ,4 ]  ; 4 . 7167*H [7 ,4 ] ; 6 . 4 138*H [ 8 ,4]  ; 8 . 1579*H [ 9 ,4 ] ; 9 . 9286*H 1 10 ,4] 
182:  11. 7143*Hfll,4] ; 13. 5273 *H [12 ,4] ; 15. 3519*H [13,4] ; 17 . 2037*H f 14 ,4] 

183:  20. 9074 *H[ 15, 4] ; 24 . 6111 *H [ 16 , 4 ] ; 28 . 3148 *H [ 17 ,4] ; 32 *H [ 18 ,4 ] 

184:  35. 5263 *H [19, 4] ;39*H[20,4] 

185:  ato  +15  . 

186:  . 9259*H [ 1 ,4 ] ; 1. 9293*H [2 ,4 ] ; 2. 4343*H [ 3 ,4 ] ; 2. 9394 *H [4 ,4 ] ;4*H[5,4] 

187:  5 . 0  556  *H ( 6 ,4 ] 

188:  for  N*7  to  14 ; 5 . 0555+2 . 7778 (N-6) *H [N ,4 ] ; next  N 
189:  for  N=15  to  20 ; 32 . 8333+5 . 5556 (N-15) *H [N ,4 ] ; next  N 
190:  gto  +10 

191:  .56T*Hfl,4]  ;  1. 124T9*H  [2  ,4]  ;  1.4127*H  [3  ,41  ;  1. 7TT04*fi  [4  ,4]  ;  2 . 276*H  1 5 ,4] 

192:  2. 8515*H [6,4]  ; 4 . 3275*H [ 7 ,4 ] ;  5 . 8256*H [ 8 ,4 ] ; 7 . 3445*H [ 9 ,4 } ; 8 . 8881*H [ 10  ,4 ] 
193:  10. 46  38 *H ( 11, 4]  ; 12 . 1044 *H [ 12 , 4] ; 13 . 7611*H [ 13 ,4 ] ; J 5 . 4627*H [14 ,4] 

194:  for  N*15  to  20 ; 18 . 8804+3. 4176 (N-15) *H [N ,4] ; next  N 
195j  gto  +5 

196:  . 9112 *H [1,4] ; 1 . 9002 *H [ 2 ,4 ] ; 2 . 394 1*H [ 3 ,4 ] ; 2. 89l2*H (4 ,4 ] ; 3 . 9281*H [ 5 ,4] 
197:  4 . 96 98 *H [ 6 ,4 ] 

198:  for  N*7  to  14 ; 7. 702+2 . 73375 (N-7) *H [N ,4 ] ; next  N 
199:  for  N*15  to  20; 32 . 3056+5 . 4675 (N-15) *H [N ,4 ] ;next  N 
.401 
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200: 

201: 

202: 

203: 

204: 

205: 

206: 

207: 

208: 

209: 

210: 

211: 

212: 

213: 

214: 

215: 

216: 

217: 

218: 

219: 

220: 

221: 

222: 

223: 

224: 

225: 

226: 

227: 

228: 

229: 

230: 

231: 

232: 

233: 

234: 

235: 

236: 

237: 

238: 

239: 

240: 

241: 

242: 

243: 

244: 

245: 

246: 

247: 

248: 

249: 


20  +  Z 

for  N  =  0  to  29;0-*H(N,5]+H(N,6]  ;  ne  xt  N 
A(1]*H(-1,5]  +F(-1,1]  ;A(2]+H 1-1,6]  +  F.|-1,2] 

A(3]  ♦H  (-2,5]  ;A(41-H(-2,61 

A(l] (0,6} ;C+H[ 8,3] *H ( 9,3] ;A[1]+H( 10,3] 

1  -»H  ( 1 , 3 ]  +  P 

'ENTER  OBSERVATION  TIME : "+C$ ;gsb  "DI" 

L-H(ll ,3] ; if  IX.01  or  L>150;qtO  -1 

"ENTER  ELEV  ANGLE  AT  TIME: "*C$ [ 1 , 2 5} ; S tr (H i 11 ,3] ) +C$ ( 26] 
qsb  "DI" 

LfHll2,3] ;if  L<0  or  L>90;gto  -2 

spc  1;  prt  "TOP  OF  ZONE  DATA",'"  .TIME:  "  ,  H  f  11  ,3] 

fxd  2; prt  "  EL  ANGLE" ,H { 12 , 3 ] 

"ENTER  AZ  ANGLE  AT"  TIME:  "+C$fl  ,2 5]  ;  S t r  (H  fll , 3]  )  +C$  (26]  ;qsfc  "DI1 


L*H[13,3] ;if 
fxd  2;prt  "  AZ  ANGLE" ,H ( 13 , 3 ] ; spc  2 
"ARE  PRINTED  DATA  OK  ?"+C5Tl , 32] ;qsb  "Y/N" 

if  A«-2tn~10;prt  " - REPEATING - ";qto  -11 

H ( 11 , 3]  *T 

if  A ( 5] =  30 ;gsb  "H30" 
if  A(5] *31;gsb  "HE30" 
if  A(5]=100;qsb  "H100" 
if  A ( 5] *101 ;gsb  "HE100" 
gto  +55 
"  H100’’  : 

if  T<=1;3S8.6T»M 

if  T<=  3  and  T>1 ;  356 . 6+347 . 5 (T-l) +H 
if  T<=  5  and  T> 3 ;  1051 , 6  +  338 . 3 (T-3) +  H 
if  T<=8  and  T>5 ; 1728 . 2+329. 2 (T-5) 
if  T<=10  and  T>8; 2715. 8+320 (T-8)*H 
if  T<=11  and  T>10 ; 3355 . 8+310 . 9 (T-1G) -H 
if  T<-14  and  ?>il  >  3666 . 7+301 . 8  (T-l  1 )  -»B 
if  T <-36  and  T>14 ;  4 572  +  292 . 6 (T-14 ) 
if  T>36;11009. 4+301. 8(T-36) +H 
if  T>=38  and  T<*42 ; H-9. 1»H 
if  T>=42  and  T<=45;H-18. 3+H 
if  T>4 5  and  T<  =  48 ; H-27. 4+H 
if  T>48  and  T<=52; H-36 . 6-»H 
if  T>52  and  T<=55;H-45, 7-H 
if  T> 55  and  To58  ;  H-54 . 9-»H 
if  T>58: H-64+H 


L>360;gto  -1 


if  T<=3  and  ' 
if  T<=5  and  ' 
if  T<=8  and  ' 
if  T<=10  and 
if  T<=11  and 
if  T<-14  and 
if  T<-36  and 
if  T>36;1100! 
if  T>=38  and 
if  T>=42  and 
if  T>45  and  r 
if  T>48  and  r 
if  T>52  and  ’ 
if  T>55  and  ' 
if  T>58; H-64- 


if  T>52  and  T<=55;H-45. 7-H 
if  T> 55  and  To58  ;  H-54 . 9-H 
if  T>58; H-64-H 
ret 

" H30"  : 

if  T<*1;  219.  5T-H 

if  T<=  3  and  T>1 ; 219. 5+201 . 2 (T-l) -H 
if  T<  =  5  and  1>3;  621  +  192  (T-3)  -H 
if  T>5; 1005+152. 9(T-5) -H 
ret 

"HElOO": 
if  T<= 1 ; 350T-H 


"22567 


250: 

if 

T<  =  2 

and  T>1 ; 350+320 (T-l) ♦H 

251: 

if 

T<=3 

and  1>2; 670+310 (T-2) +H 

252: 

if 

T<  =  4 

and  T>3; 980+305 (T-3) -H 

253: 

if 

T<=  5 

and  1>4; 1285+300 (T-4) -H 

254; 

if 

T<  =  6 

and  'I>5;  1585+295  (T-5)*H 

255: 

if 

T<=7 

and  T>6;  1880+290  (T-6)«-H 

256: 

if 

T<=  9 

and  T>7 ;  2170+285  (T-7)  -*H 

257: 

if 

T<=12 

and  T>9; 2740+280 (T-9) -H 

258: 

if 

T<=15 

and  T>12;  3580  +  275(T-12)-*-H 

259: 

if 

T<=  30 

and  T>15; 4405+270 (T-15)-H 

260: 

if 

T<=32 

and  T>30;  8455  +  275  (T-30)-*>H 

261: 

if 

T<=  34 

and  T>32; 9005+280 (T-32)*H 

262: 

if 

T<=37 

and  T>34; 9565+285 (T-34 ) -H 

263: 

if 

T<=  38 

and  T>37; 10420+290 (T-37) *H 

264: 

if 

T<=45 

and  T>38; 10710+295 (T-38)*H 

265: 

if 

T<=  50 

and  T>45;12775+300 (T-45)*H 

266: 

if 

T<=51 

and  T>50;14275+295 (T-50)*H 

267: 

if 

T<=  52 

and  T>51; 14570+290 (T-51) *H 

268: 

if 

T<=  53 

and  T>52 ; 14860+285 (T-52) ♦H 

269: 

if 

T<  =  60 

and  T>53; 15145+280 (T-53)-H 

270: 

if 

T>60 ; 

17105+282. 5(T-60) +H 

271: 

ret 

172: 

H  E  30"  : 

273: 

if 

T<=1 ; 

216T-H 

74: 

if 

T<=  3 

and  T>1; 216+198 (T-l) +H 

275: 

if 

T<=  5 

and  T> 3; 612+189 (T-3) 

276: 

if 

T>5; 990+180 (T-5) -H 

277: 

ret 

278;  if  fl>H7P  »1T  ;'g€6  +2  . . 

279;  H[ll,3] -H[8,3] ;  H  [  12 , 3 ] -H  [  9 , 3] ;  H  [  13 ,3] -H  [  10 ,3] ;cfg  0;gto  -73 

280;  (H[8,3]-H[P,4] )/(H [8,3] -H [11,3] ) -L 

281;  if  H [ 10 , 3] -H [ 13 , 3] >180 ; H [ 13 , 3 ] +360-H [ 13 , 3 ] 

282;  if  H[13,3]-H[10,3] >180 ; H [ 10 , 3 ] +360-H [ 10 , 3 ] 

283;  H[10,3]-L(H[10,3]-H[13,3] ) *H[P,5] 

284;  if  H[P,5] >36 0 ; H [P , 5 J -360-H [P , 5 ] 

285;  H[9,3) -L (H [ 9 ,3] -H(12 ,3] > -H[P,6] 

286;  if  fla0;gto  +2 
287;  qto  +14 

288;  H [-1 ,5]  *A;H[— 1,6]  +P;gsb  "P-*P" 

289;  X*rl;Y-*-r2 
290;  H/tan (H[12 ,3] ) *P 
291:  Rsin (H  f 13 ,3] ) -Y 
292:  Rcos (H [ 13 ,3] ) +X 
293:  asfc  "P*P" 

294  ;  X-rl-*>X;  Y-r2-Y 

295:  . 03238X/ (H[ll,3]-Hf8,3J ) *U; . 03238Y/ (H [ 11 , 3) -H [ 8 ,3) ) ♦V 

296:  UL*U;VI>V 

297;  17/  .03238 +X;V/. 03238 ♦Y 

298:  X+rl+X;Y  +  r2-»Y;gsb  "P*P" 

299:  if  H>  =  H[P,i;  ;A»H[P,5]  ; a tn (H [P , 1 |/R ) -H [P  ,6 ] 

611 
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300:  if  H(P,5i >360;HlP,5)-360*H[P,5j 
30i:  P  +  ;  i  £  not  flg0;gto  +2 

302:  if  H<HiP,l];cfg  0 
303:  if  P<Z;gto  -25 

304:  if  P<29; for  I*P  to  29 ; Q>H { I ,4 ] ; next  I 

305:  pet  »■»■*'* *«***«■#•***■»*»  . 

306:  if  f lq  3;gto  +29 
307:  prt  "ZONE  INFORMATION" 

308:  spe  3; f xd  0;prt  "SURFACE" 

309:  prt  "  HOR  DST",H{-1,6] 

310:  f xd  3;prt  "  AZ  OFF",H[-l,5] 

311:  f xd  0; pr t  "  ALTmsl " , val (P$ { 19 , 21 ) ) 10 
312:  f xd  0;prt  "  WDIR,ded" ,H [-2 ,5  ] 

313:  f  xd  0;prt  "  ViSPEED  ,  if" ,  H  [-2 ,6  ] 

314:  H  { -1 , 5 ]  ♦  A;H[-l,6]-*R;gsb  "P*F" 

315:  for  N=1  to  29;if  HlN,4}=0  or  (H[N,5j  and  H[N,6] )  »0;ssto  +19 
316:  N-l-J 
317:  6367650-S 

318:  V(  (S+H[N,11  )  "2-S"2cos  (H  [N  ,6 ]  )  * 2 )  -Ss  in  (H[N,.6]  )  +r3 
319:  (Scos  (H  [N  ,6] )/(S+H[N,l]  ) )  r3*R 
320:  H(N,5]  *A:qsfc  "P-P" 

321:  r  l-»r4  ;  X  *i  1 ;  r  4-rl *X  ;  r  2*r5 ;  Y-*r2 ;  r  5-r2-»Y;qsb  "F+p" 

322:  (R/(H[N,4J-H(J#4] ) ) . 03238 -S ; 1 7 . 778A-A 

323:  if  N*1  and  H [N ,4 ] <1 ; H (N ,4 ] S*S 

324:  H(J ,1J  +  (K(N,1]-H{J,1) )/2+val (P$ [ 19 , 21]) 10-R 

325:  spe  1; f xd  0;prt  "ALTmsl", H 

326:  fxd  C;prt  "WDIF .mils", A 

327:  fxd  0;prt  rtSREEC  ..  k" ,  S 

328:  spe  ljfxd  0;prt  "ZONE",N 

329:  prt  "ALTqeom"  ,H  (N  ,1] 

330:  fxd  3;prt  "  TIME" ,H [N  ,  4  ] 

331:  fxd  3;prt  "  ELEV",H(N,6] 

332:  fxd  3; prt  "  AZ",H(N,5| 

333:  next  N 

334:  prt  "*>>**************"  ;spc  5 
335:  for  N=Q  to  29 ; 0+H [N ,2] ; next  N 
336:  ent  "ENTER  REGION  NUMBER", R 
337:  fxd  0;ort  "REGION" ,R;spc  3 
338:  if  R  (  2  ]  >0  and  R{2]<4;7-T 
339:  if  P ( 2 ] >3  and  R[2]<7;l-T 
340:  if  P ( 2 ] >6  and  Rf2)<10;3-T 
341:  if  R  [  2 ]  > 9 ;  5 -*T 
342:  if  0<=800  or  Q>1800;T+1+T 
343:  trk  0;ldf  2,Z$ 

344:  if  10val(P$f 19,21] ) <200;1-D 
345:  if  lOval (P${19,21] ) >*200 ; 5-D; 6>P 
346:  for  N=0  to  25 

347:  if  val  (Z$  f D  ,8N  +  1 ,8N  +  2] ) =P  and  val  (Z${D,8N  +  3,8N+4])*T;gto  +2 
348:  next  N 

349:  val(Z$  (D  ,8N  +  7  ,8N+8]  )  *10-»E 
'1522 


48 


’V  * . 


350:  val  (Z$ [D  +  l ,8N+1 ,8N+2] ) /10+P*B 
351:  val  <Z$  [D  +  l  ,8N+3  ,8N+6] )/10*E 
352:  if  A f 8] <B;B*A[8] 

353:  if  A[ 8] >E+. 5; E+. 5*A[8] 

354:  int  ( (A  [8] -B  +  .  5) /.  5)  *C 

355:  if  C<=10;C*F;trk  val  ( Z$  (D+l  ,8N  +  7 ,8N+8]  )  ;  ldf  val  <Z$  [D+2 ,8N+1 ,8N+2]  )  f  Z$ 
356:  if  0=11  and  C<=20;C-10*F 

357:  if  0*11  and  C<=20 ;  val  ( Z$  [D  +  2 , 8N+3 , 8N+4]  )  *0? val  ( Z$  [D+2 ,8N+5 ,8N+6]  )  *W 
358:  if  0=11  and  C<=20;trk  0;ldf  W,Z$ 

359:  if  0=21  and  C<=30;C-20*F 

360:  if  0=21  and  C<=30;val  (Z$  [D+2,8N+7,8N+8] )  *0;val  (Z$  [D+3 ,8N+1 ,8N+2) )  *W 
361:  if  0=21  and  C<=30?trk  0;ldf  fc,Z$ 

362:  if  C>=31;C-30*F;trk  val ( Z$ [D+3 ,8N+3 ,8N+4] ) ; ldf  val  (Z$ {D+3 ,8N+5 ,8N+6] )  , 2$ 
363:  for  N=0  to  25;prt  Z$ {F ,8N+1 ,8N+8] 

364:  next  N 
365:  spc  5 

366:  for  N=0  to  60;for  F=1  to  6 ;  0  +  F  (N  ,M  ]  ;  next  M;next  N 
367:  100*  F.  fl,6]  ?  350-F  [2 ,6]  ;750*F[3,6] j  1250*F[4,6]  ;  1750*F[5,6] 

368:  2250*  F.  [  6 ,6]  ;  2  7  5  0- F,  f  7 , 6  ]  ; 3250* P [8 ,6 ] ; 3750*F [ 9 ,6 ]  ,*  4250*P  [  10  ,6] 

369:  4750* F [ 11 ,6 ]  ;  5500*F.  f  12  ,6  ]  ;  6500* F.  ( 13 ,6  ]  ;7500*F.[14  ,6]  ; 8500* F [15, 6] 

370:  9500*  F.[  16, 6]  ;  10500*  F  f  17  , 6  ]  ;  11500*F  [18 ,6]  ;  12500*P  [19 ,6]  ;  13500*  F.  |20  ,6] 

371:  14 500*F.  [21,6]  ; 15500*F [22 ,6 ]  ;  16500*F.[23,6]  ;  17500*F  [24  ,6]  ;  18 500*P. [25 ,6] 
372:  19500*F.[26 ,6] 

373:  A[7]*F[0,1J  ;  A  [11]  *F  [  0  ,2]  ;A[9)*F.[0,3]  ;  A  [6]  *F  [0  ,4  ] 

74:  I*M 

375:  for  N=1  to  26 

376:  val  (Z$[F,8(N-1)  +1,8  (N-l)  +4]  )'/10*F. [N , 3] 

377:  val  (Z$  [F  ,8  (N-l)  +5  ,8  (N-l)  +8]  )  *F.[N,4] 

378:  F.[N,3]-273.16*F[N,1] 

379:  if  H  [N ,  1]  <=F. [M ,6 ]  or  H[N,4]=0;gto  +4 
380:  (F.  [M  ,6  ]  -H  [N— 1,1]  )  /  (H  [N  ,  1  ] -H  [N-l  ,1]  )  *A 

381:  H[N-1,4]  +A(H[N,4]-H[N-1,4]  )*F.[M,5] 

382:  M+1*M 
383:  next  N 

384:  A[6] *H (-1 ,2] ; A [ 7] +273 . 16 *H [ -1 ,4 } 

385:  0*1; loo (A [ 6] ) *H [ 0 ,2 ] ;1*H[0,3] 

386:  for  P=1  to  29 
387:  P-1*J 

388:  if  P*2  or  P=4  or  P=5;gto  +8 

389:  if  P=1;0*J 

390:  if  P=3; 1*J 

391:  if  P*6;3*J 

392:  1+1*1 

393:  if  F  f 1 ,4] =0;gto  +4 

394:  21og  (F.f  1 ,4  ]  ) -H  [J ,  2 ]  *H  [P ,2 ] 

395:  (H  [J  ,2]  -H  [P  ,2]  )  67. 442  (F  f  1 ,3]  +.  041 ) +H  [J  ,1  ]  *H  [P  ,1] 

396:  next  P 

397:  "N"*P$f 100,100] 

398:  for  N*1  to  26;if  F.|N,5]  =0  ;N*Y[  1]  ?N-1*Y  [2]  ;gto  +2 
399:  next  N 
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400:  l+H(-2,3] ♦H(-2,3J 

401:  trk  l;rc£  1#P$,Q$,0$,L$,N$,G$,D$ 

402:  trk  l;rcf  2,F.[*]  ,Y[*] 

403:  trk  l;rcf  3,H[*} ,D{*] 

404:  trk  l;ldp  4 

405:  end 
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c.  Output 

OUTPUT  #1  ON  TRACK  1  FILE  4 
TRACK  1  FILE  4 


0:  dsp  '"TURN-ON  REMEX"  ;g  sb  "BBB" 

1:  dim  A$  [  100 ] ,  B$.  15]  ,R [10]  ,C  [0: 16 , 1: 14] 

2:  dim  P$.[102)  ,Q$.[16]  ,0$  [16]  ,L$[  16]  ,N$  [6]  ,G$  {192]  ,D$  [16] 

3:  dim  F. (-1:60,1:6)  ,Y  [2] 

4:  dim  H  [-2:29,1:6]  ,D.[0:29]  ,R(15] 

5:  dim  H$[2,32] ;time  500 

•feT'trT  T?rd  t1  i,py,or,  0!?'  ,ds - 

‘  /T* spc  b  ;  p r’t'  ^PTBAL  FLl^HTT"'',U~$  [1,16]  - - - - — - - - - 

8:  sfg  4; if  not  ios2;cfg  4 
9:  if  not  ios2;gto  +6 

"  10“:"'  en'f  ^Efib'  .TTY-76"  TELETApB?'*'  ,k - 

11:  if  At-ltn^lO  and  A#-2tn~10 ;gto  -1 
12:  if  A=-ltn~10  ;"Y"*P$.  [101,101] 

13:  if  A*-2tn*10  ;"N"+P$  [101,101] 

14:  trk  l;rcf  28 ,P$ ,Q$ ,0$ ,L$ ,N$ ,G$ ,D$ 

15:  spc  5 

16:  dsp  ‘’PIBAL  FLIGHT  MESSAGE  OUTPUT"  ;gsb  '"BBB*1  ' 

17:  if  P$ [101,101]="Y" ;sfg  7;cfg  8 
18:  if  P$  [101 ,101 ]  =  "N" ;cfg  7;sfg  8 

19":  trk  T-; id t  2,R|*J  ,  Y  l  *  J - 

20:  trk  lyldf  3,H[*]  ,D[*] 

"2TTT  9  1,  .  )  4&80:";  3  5?  FT 7=2 — U  [  "“HSTn - 

22:  "TO  HNM  LKGIPCVEZDBSYFXAWJ  UQK 

23:  char (0) -H$ [1,1,1] ychar (10) *H$ [1,9,9] ;char (7) -H$ [1,21 ,21] 

24:  char (13) -H$ [1,3,3] 

2  5:  qsb  "IHTHT" _ 

26:  sfg  3; dsp  "SOUND  RANGING" ;gsb  "BBB"  ~ 

27:  if  flg4ywtc  2,2;for  N=1  to  75;wtb  2,0;next  N;wtc  2,0 
28:  gto  +69 

29:  "BB0"':beep;wait  I5U ; beep ; wait  I5l);beep;wait  3000;ret 

JU":  "THTTTT"'":'i:or  N=1  'to"Y  1  lT;Tf '  F.  [  N 3 JTUTg  to '  *7 - - 

31:  for  K=N  to  Y[l];if  F.  [N  ,  3]  =0;  next  K 
32:  (F[K,5]-F  [N,5]  )  /  (F  [K,  5] -F  [N-l,  5]  )  ♦C 
33:  F[K,1]-C(F  [K  ,1  ] -F  (N-l ,1]  )+F[N,l] 

34:  F[K,2]-C(F[K,2]-F[N-1,2))-F[N,2] 

35:  F. [K  , 3]  -C  ( F  [ K,  3 ]  -F. [N-l ,  3]  )  +  F [N  ,  3]  I 

36:  F.  [K  ,6  ]  -C  (F  [  K  ,6  ]  -F  [N-l  ,6  ]  )  ♦  F  [N  ,6] 

37:  next  N  ft 

38:  ret 

39:  t,FOOf":tmt  2,,F9'"",/  ~~  ' "  - - - 

40:  if  fig 4  and  flg8;par  2?wtc  2,2;wrt  2.2;wtc  2,0 

41:  fmt  b,z  ■ 

42:  if  fig 4  and  flg7;par  0;wtc  2,2;wrt  2,3,2,8;wtc  2,0  • 

43:  if  f lg  4  ;wtc  2,2;for  N  =  1  to  30;wtb  2,0;next  Njwtc  2,0 

44:  ret  \ 

4  5:  "A+B":fmt  b,Z;par  0  - - - — - 

46:  for  G=1  to  B 

47:  for  K=1  to  2 ;pos  (H$ [K]  , A$ [G ,GJ ) *F; if  F;sfg  K;gto  +2 
48:  next  K 

49:  if  F=1  or  F=3  or  F=5  or  F=9;cfg  l,2,5,6;gto  +5 
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50:  if  flol  and  flq5;cfq  l;qto  +4 

51:  if  flcljwtc  2,2;wrt  2,27;wtc  2,0;?fa  5;cfo  l,6;ato  +3 
52:  if  flq2  and  fla6;cfg  2;cto  +2 
53:  sfo  6;cfq  2,5;wtc  2,2;wrt  2,31;wtc  2,0 
54:  wtc  2,2;wrt  2,F-l;wtc  2,0 
55:  next  G 

56:  wtc  2,2;wrt  2,2,8;wtc  2,0 

57:  ret  _ _ _ _ 

$8:  "R-P" :V (XX+YY) -P [1 ] 

59:  atn (Y/(X+le-90* (X=0) ) ) +2*sqr (Y) *a 1 
60:  A-R [ 2] 

61:  if  A<0 ;360+A-R[2] 

62:  ret 

63:  "HFADl^F'' :cfq“T7'2  ,"5  ,b  ;'par  2 - 

64:  if  f lq4  and  flq8;frot  3,cl2;wtc  2,2;wrt  2. 3 ,A$ ( 1 , 12 ] ;wtc  2,0 
65:  if  fla4  and  f  lq7  ;  12--B  ;gsb  "A-R" 

66:  dpo  A$ [ 1 , 12 ] ;pr t  A$(l,12] 

67:  P$ [85,99]- A$ [1,J] 

68:  if  f 1 q9 ; cf o  9;nto  +5 
69:  fmt  3, cl2 

70:  if  fla4  and  fln8;wtc  2,2;wrt  2. 3 , A$ [ 1 ,]  2 ] ; wtc  2,0 
71:  if  f 1 a4  and  f la7 ; 12-B ;asb  "A--P" 

72 :  qto  +3 

73:  if  f  1  a4  and  floPjfrot  3,cl5;wtc  2,2;wrt  2.  3,  A$  [1 ,15]  ywtc  2,0 
74:  if  f1qA  and  f  1  a~> ;  1  5*P  josh  "A-*P" 

75:  drp  A$[l,J)rprt  A$jl,j] 

76:  ret 

I1):  "DFLFTFH:cfo  Sjc'sc  "f'fcSSAdE  &3YNG  DeLEtEt)-"  ;wait  1000 
78:  ret 

797  "" "P* p »  :  V m* COST P irn -X ;  F~U  ]  *s’ThTP  [' 7TJ ?! - 

80:  ret 

81:  "STRING"  :fxc.  0;str  (M) ->B$'l  1 ,5  ] - 

62:  if  M<1000;BS [2 ,4]-P$ ( 3,5] [ 2,2] 

83:  if  K<100?P$[2,4]-B$[3,5] j "0"*B$ l 2,2] 

84:  if  ^<10 ;B$ f  2 , 4  ]  ♦  B$ [3,5] ; " 0 "♦B$ [ 2,2] 

85:  if  K < 1 ;  P  $ [ 2 , 4 ] ♦ B$ [3,5] ;  "  0  "-*■  B$  [ 2,2] 

86:  ret 
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88 

89 

90 

91 

92 

93 

94 

95 
JLi 


ARRAY  : 1 -N;qsb  STRING 
B$[4,5]  -A$[l,2]  jA-F'jqsfc  "STRING” 

B$  [  3,5] -AS  [  3,5]  ;S-t*;qsb  "STRING" 

B$[ 3,5] ♦A$(6,8] ;T-M;qsb  "STRING" 

B$  f  2, 5 ] ♦ A$ ( 9 , 12 ] ;C-M;gsb  "STRING" 

P$[2,5]-A$[13,16] 

if  flg4  and  fla8;par  2;fint  4,cl6;wtc  2,2;wrt  2. 4 ,  A$  [1 ,16]  ;vtc  2,0 
if  f]q4  and  f  lg7  ;  1 6-B  ;csb  "A+P" 
dso  AS [1,16] ;prt  A$[l,16] 


97 

98 

99 


H[-1,5]*P[2]  ;H[-1  ,6] -RJl  ]  ;csh  "P-P" 
X-R [ 41  ; Y  *F [ 6 ] 

ornd (H[-2,5] *16/9,0) ♦A*B(10J 


r 30887 


ICO  : 
101s 
102: 
10  3: 
104: 

~nrrr 
106: 
10  7: 
108  : 
109: 
110  : 
111: 
112: 
113: 
114: 
115: 
116: 
117: 
118: 
119: 
120: 
121: 
122: 
T7TT 
124  : 
125: 
126  : 
127: 
128: 
129: 
130  : 
131: 
132: 
133: 
IT4':" 
135: 
136: 
137: 
138: 
139: 
140: 
141; 
142: 


p  rnd (H [ -2 ,6 1 ,0)*S-E(9] 
prnd  (H  [  -1  ,41 10,0)  -T 
.0000001-11(0,4  1 
0-1 

if  H ( 5 , 4 ] =0 ; spc  5;prt  "SOUND  RANGING  NOT  READY" ;qt  c  +49 

•for~T=l'  fco'Ttil  H  1 P  ^  4  j  —'l?  ;'q  1 6  -1-14 - - - 

P-l-J 

if  P=3;next  P 
if  P=4  ;  2  *  J 
l+I-I 


636  76  50 -S 

V( (S+D [p] ) *2-P*2cos (H[P, 6] )*2) -Ssin (H(P,61 ) -P (R] 
(Scos (H[P,6])/(S+D[P1 ) )P(8]-P(1] 

H ( P , 5 ] -P ( 2] ;qsb  "P-R" 


"P*P" 


P[4]-P[5] ;X-R(4] ; R f 5 ] -P (4 ] -X; R [6 1 *R[7] ;Y-R[6] ; P [7] -R [ 6 ) *y ;qSb 
ornd(  (P[1]/(H[P,41-H[J,4]  )  )..03238,0)-S-B(I] 
if  P=1  and  H(P,4)<1 ; H (P,4 ] S-S-P (I } 
p rnd (P( 21 *16/9,0) -A-e(I+4] 
next  P _ 

if  B  [ 2 1  <B  [  1  ]  and  (B  [21  >=P  [§] +7  or  fr  [2]  <i=~S  (9] -2)  jTiJT]  -g.g  [6  )TF;ato  -lib 
if  E  [  2  ]  <B  ( 1  ]  and  (B[2]<e[9)+2  and  B  [2]  >R  [9]  -2)  ;  R  (1  ]-S  ;B  [  5]  *  A  ;q  to  +lc 
if  n { 2 ] > 2 * P [1)  ;.4-rl;0-r2;.3-r3; .15-r4; ,15-r5;qto  +2 
. 2-rl; .5-r2;.15-r3; .075-r4;.075-r5 

IT-y77-G-C - — - — 


r IB [ 9] -R { 1) ; B [ 10 ] *9/16-R(2] ;qsb  "P-P" 

X-C ;  Y-D 

r  2P  ( 1]  -R  ( 1] ;B  [5] *9/16 -R (2) ;gsh  "P-R” 

X+C-C ;Y+D-D 

r  3E  (  2  ]  -R  ( 1  ]  ;P(61*9/16-R[2]  ;asb  "P-R" 

X+C-C ; Y+D-D 

r  4P.  (  3]  -R  [  1]  ;B(7]  *9/16 -P  [2]  ;gsb  "P-R" 

X+C-C; Y+C-C 

r 5B ( 4 ] -P ( 1 ] ;B [8] *9/16 -P (2) ;asb  "P-P" 

X+C-X ; Y+C- Y ;qsb  "P-P" 

TrrpS;R[2i*iG/9-A - 

prnd (S , 0) *9; nrnd (A , 0 ) -A 
if  A=0;64-A 

if  S-C  ;  0-  A  _ _ 

for  L=1  to  5;  if  not  (F[L,6]>200  and  F  tl -1 , 6T<5<F6)  ;rext  L 
( 200-F ( L-l , 6 ) )/(F(L,61~F[L-l,6] )-0 
C (F [1 , 3 1  -F [ L-l , 31 ) +F [ L-l ,3 1 -Hf  16 ,31 
0(P(T,,11-P[L-1,U  )  +F  (L-l , 11+ 27  3. 16+ 3H  (16, 3] -F  (16, 31 
V (16 ,31/4-273.16-8(16,3] -T 


■l4_j:  r. rnd  ,U) -t  ~ - 

144 :  ahs(T)*M;M  ”-A$(l,l];if  T<0 ; " -"-A$ [ 1 ,1 ] 
145:  ash  "STPING" 

146:  B$ [ 3 , 5 J *A$ { 2 ,4 1 ; A-V;qsb  "STRING" 

14  7:  P $  [  3 , 5 1  -A$  (5,7  J*;  S-M  ;gsb  "  STRING" 

148:  F  $ ( 4 , 5  J -AS (8,9) 

149:  if  not  flq3;atc  +5 
*31774 
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150:  A$(l,9)  *P$f 91,99)  ;  P$  1 73  ,84  ] -A$  [  1  , 1 2  ]  ;  1  5-1 
151:  sfq  9 ;  a  sb  "HFADTP" 

152;  cfa  F;ash  "FOOT" 

153  :  sdc  c 

T5TT  "~sl'q"  "3';?so~  "COHPUTl'-H  ET"Tr ;qs"b'  mVMn - 

155:  H[-1,5J--P{2)  ;H[-1,6]*P[1]  ;qsb  "P*P" 

156:  X  ♦P  [  4 1  ; Y+R ( 6 ] 

157:  str (p rnd (K [ -1 ,2 ] ,0 ) ) *A$ ; A$ [ 2,4 ] * P$ { 22 , 24 ] 

158:  if  H[-1,2]>=1000;A$[3,5]*P$[22,24) 

159:  F$ [1 ,12]*A$[1,12] ;P$[13,24]*P$[85,96] ;12*J 
160;  if  not  flg3;oto  +35 

161;  qsb  "HEADER" _ _ 

T62: 0*1  ' 

163:  prnd(H[-2,5  | *16/9 ,0) -A;  if  A=0;64-A 
164:  prnd(H[-2,6] ,0) *S? if  S=0;0*A 
165:  prnd  (H  [  -1 ,4  ]  10 , 0 )  +T 
166:  erne?  (H  [-1 , 2}  ,0)  ♦C 
167:  qsb  "ARRAY" 

168:  .0000001 [0 ,4 1 _ _ 

169:  For  P=X  to  29;if  H[P,4]=0;gto  +24  “  ’ 

170:  if  P=1 ;  0*J 

171:  if  P=2;next  P 

172:  if  P=3;l-J 

173;  if  P=4  or  P=5;next  P 

174:  if  P=6 ; P-3* J 

175:  if  P>6 ; P-1 ♦ J 

176:  1+1*1 

177:  6 36 76 50 *S 

178:  V(  *S+D(P1 )  ~2-S~2cos(H[P,6]  )~2) -Ss in  (II ( P ,6  ] )  *P  [8 ] 

179:  (Scos (H ( P ,6 ] ) / ( S+D [P ] ) ) P { 8 ] «-F f 1 ] 

180:  H  (P  ,  5  ]  *F  t  2]  ;qst>  "P*F" 

181:  F[4]-Pf5] ;X*R[41 ; P [ 5 ] -P [ 4 ] -X ; P [ 6 ] *R[7] ?Y*R[6] ; P[7] -Rf 61 ♦Y;osh  "P-P" 

182:  prnd((P.[l]/(H[P,4]-H[J,4]  ))  .03238  ,0)*S 

183:  if  F  =  1  and  H (P ,4 ] <1 ; H [P ,4 } S*S 

184:  H [ 0 , 3] H ( P ,  1  } 6  371299/ ( 6371299+H [P , 1 ] ) -P  [1] 

185:  H [0,3 ]H [J,l] 637 1259/(6 37 1299+H[J,1]) *E [2] 

186:  prnd( ( ( P (1 ) -B [ 2} ) /67 . 442 (H [ J ,2 ] -P [P ,2] ) ) 10 ,0) -T 

187:  tn~( (H [P , 2] +H [ J ,2 ) ) /2) *0?P rnd (C ,0 ) *0 

188:  prnd  (P[2)  *16/9,0)  *A 

189:  if  A=0;64*A 

190:  if  S=0  ;  0-*  A 

191:  osb  "APPAY" 

192:  next  F 

193:  osb  "FOOT"  _ _ _ 

194 :  sne  5  “ 

195:  sfg  3;d'o  "FALLOUT  MET"  ;qsb  "PBB" 

196  :  str  (r  rnc ( 1000H [ -1,2] /1013. 25,0)) *A$ ; A$ [2, 4]* P$ [22,24] 

197:  if  H[-1,2)>=1013.25;A$[3,5]*P$[22,24] 

198:  ate  +11 

199:  ftAPPAY-li":T*M;osb  "STFING" 

*11279 


54 


200:  B$[4,5]*A$[1,2J ;A*M;asb  "STRING" 

201:  B$I4,5]*A$(3,4] ;S*P;qsb  “STRING" 

202:  P$ [4,5] *A$ [ 5,6] ;T*M;qsh  “STPINC" 

203:  B$[3,5]*A$[7,9] ;0*M;Osb  "STRING" 

204:  B$[3,5]*A$[10,12] 

205:  if  fla4  and  fln8;par  2;fmt  3,cl2;wtc  2,2;wrt  2. 3 , A$ [ 1 , 12 ] ;wtc  2,0 
206:  if  f 1q4  and  f lq7 ; 1 2*R ;q sb  "A*P" 

207:  dsn  A$[l,12];prt  A$fl,12] 

208:  ret 


209:  H[-1,5]*R(2};H[-1,6]+P[1] ;qsb  "P*P." 

210:  X*P[4]  ;  Y  *P  r  6  ] 

211:  1*1 

212:  H [ -1 , 2 ] *C [ 0 , 4 ] 

213:  for  P=1  to  27;if  H [P , 4 ] =0 ;o to  +24 

214:  P-2+J 

215:  if  P=1 ; 0* J 

216:  if  P=2 ; next  P 

217:  if  P=3; 1*J 

218:  if  P=4  or  P=5;next  P 

219:  if  P=6 ; P-3* J 

220:  if  P=7  or  P=8  or  F=15;P-1*J 

221:  if  P=9  or  P=ll  or  P=1 3  or  P=16  or  P=*18;next  P 
222:  if  P=2P  or  P=22  or  P=24  or  P*26;next  P 
223:  6  371299*S 

224  :  V( (S+D[P])"2-S“2cos(M[P,6] ) A2) -Ss in (H[P ,6 1 )  *R [8 ) 

22  5:  (Scos  (H l P ,6 1 ) / ( S+P [P} ) ) F [8] *R 1 1 ] 

226  :  H  [P ,  5  ]  *P  [  2]  ;osb  "P*P" 

227:  R  l  4 ]  *P  [  5]  ;X+R  [  4  1  ; p  { 5 )  -R [ 4]  *X; P [6]  *R  [  7]  ;  Y*P  [  6]  ;  P [7 1  -P  [ 6]  *Y;c?sb  "P*P" 
228 :  ornd  ( (R[1]/(H(P,4] -H[J,4] ) ) .03238 ,0)*S*C[I ,2] 

229:  if  P=1  and  H [P,4 ] <1 ; H [P ,4 ] S*S*C [ I , 2 ] 

2  30  :  H[0,3]H[P,l]6371299/(6371299+h[P,] ] ) *E  [1 1 
231:  H [0,3 ]H[J,1 ] 6 371299/ (6371299+H [ J,1 ]) *P [2] 

232:  «B[1]-F[2])/67.442(H[J,2]-H[P,2])*C[I,31 ; ornd (C [ I , 3 ] , 0 ) *T 
2  33:  tr  A  (  (H(P,21+HtJ,2]  )/2)*0*C[I,41  ;prnd(0,C)*C 
234:  P [ 2] *C [1,5] 

235:  if  I<=14; 1+1*1 *C [I ,1] 

236  :  next  P .  . 

237:  for  Z=1  to  16;  if  C[Z ,4 ] #0 ;rext  Z 
238:  Z-1*Z 

239i  H[-1,4]*CT'0,3| - 

240:  for  N*0  to  Z ; 348 . 38395C (N ,4 ] /C [N , 3 )*C [N , 9 ] ;nex t  N 
241:  C[0,9]/122  5*C{0,101  ;Cll,9] /1 2 13 . 3*C ( 1 ,101  ; C [ 2 ,9 ) /1 18 4 . 4*C 1 2 , 1 0 1 
24  2  :  C[ 3,9] /1139. 2*C [ 3 , 1 0 ] ;C  f 4 ,9] /1084 . 6*C [ 4 , 10 1 ;C[5,9] /10 32 *C [5,101 
243:  C{6,9]/957*C(6,10] ;C [ 7 , 9 1 /86 3 . 4 *C [ 7 , 10 ] ; C [ 8 , 9 ] /777 *C ( 8 , 10 ] 

244:  C[9,9]/697.4*C[9,10] ;C[1C,9] /590*C[10 , 10 ] ; C [ 1 1 ,9 ] /4 67 *C [ 11 , 10 ] 

245  :  C112, 9J/364. 8*C[12, 10]  ;C  [  1  3 , 9  ] /266 . 6  *C  1 1 3 ,1  0 1  ; C f 1 4 , 9 1 /194 . 8*C  f 1 4 , 1 0 ] 
246:  C{15, 91/142. 3*C(15, 10] 

247: 


100C[0,10]*C[0,11  ] 
248:  H  T - 1 , 4  j  *C  [ 0 , 3 ] 

249:  C(0,3]  /288 . 2*C ( C ,6 ] 
*8800 
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A 


250: 

251: 

252: 

253: 

254: 

255: 

75T? 

257  : 
258: 
259: 
260: 
261 ; 
26  2' 
263: 
75TT 
26  5: 
266: 
267  : 
268: 
269: 
270: 
T7TT 
272: 
273: 
274; 
275: 
276: 
277: 
278: 
279: 
280: 
281: 
282: 
28  3: 
284: 
285: 
286: 
287: 
288  : 
289: 
290  : 
291: 
292: 
293: 

294  : 

295  : 
22.6.  i. 


C(l,31/287.S*Cll,6] ;C{2,3]/285.9«C[2,6j ;C[3,3]/283. 3*C[3,6] 

C{ 4, 3) /280-C[ 4, 6 3 ;C [ 5 , 3 ] /276 . 8»C l 5 , 6 ) ; C [ 6 , 3] /27 1 . 9*C 1 6 ,6 ] 
C17,3]/265.5-C[7,6] ; C [8 , 3 ] /259-C [ 8 , 6 ] ; C [ 9 , 3 ] /252 - [9 c6 3 
C[i0,3}/242.7*C[10,6]  ;C[ll,3]/2  29,8-*C[ll,6]  ;  C  [  1  2 , 3  ] /216  .8*C  [  12  ,6  ] 
CJ13,3]/216 -?-C[13,6] ; C [ 14 , 3 } /2 16 . 7-C ( 14 ,6 ) ;  C  [1  5 , 3  ] /216 . 7-C  [  1  5 ,6  ] 

ato  +9 _ _ _ _ _ — 

^ARPAY-FO": I-Msgsb  "STRING" 

B$  f  4,51  ««A$  [1.2]  ;  A+Mjgsb  "STPING" 

B$ [ 3,5] -A$ [3,5] ; S-*-M;asb  "STRING" 

P$[  3,5]-A${6,8] 

if  flo4  and  f]a8;par  2;fmt.  l,c8;wtc  2f2;wr+  2. 1 ,  AS  [1 ,8  ]  ;vtc  2,0 
if  flg4  and  f  1g7  ;  8--P  ;asb  "A*E" 
dsn  A$ ( 1 ,8 ) ;ort  A$(l,8] 

ret _ _ _ 

H[-l,5l  -P  [2]  ;H  f-1 ,6]  *P  ru  ;qsb  “P-P’1 
X-P(41  ;  Y-*R[6] 

otnd  (P  i  -2 ,5  }  *  16/9  ,0)  +  A;  if  A=0 ;  64-*  A 

ptnd { H { -2 ,6 ]  » 0 ) *S ; if  S=0;0-*A 

P$  [  4  9 , 6  0  3  A$  { 1 , 1 2  ]  ;P$[61,72]-*P$[85,96)  ;12-*J 

if  not  fla3;gto  +29 

qsb  "HEADEP" 

trri - - - - - 

asb  " ARRAY -FQ" _ 

1*1 

foe  F  =  8  to  34  j  if  P[P,4]=0;gto  +22 
if  P=8 ; 0*  J 

if  P=9  or  P=10  or  P=ll;next  P 
if  P=1 2 ; 8* J 

if  P=13  or  P*14;next  P 
if  P=1  5;  1 2* J 

xf  P=16  or  P=18  or  P=20  or  P=22  or  P=24  or  P=26  or  P*=28;next  P 
if  P=1 7  or  P*19  or  P=21  or  P=23  or  P=25  or  P=27  or  P=29;P-2*J 
if  P> 29;  P-1*  J 
6371299*S 

U  ( S+D  [P]  )  *'2-R~2 COS  ( H  [ P,  6  ]  )*2)-Ssin(H[P,6]  )  ♦P  f  B  ] 

(SCOR (H[P, 6 | )/(S+D[P] )) P[8]*P[1 ] 

H(P,5]-P[2)  ;qsb  "P*P" 

P[41*P[51 ;X*P[4] ;R[5] -P[4] ♦X;R[6] ♦P [71 ;Y*R[6] ;  R  [7  ] -P  [6]  ♦Y;qsb  "P*P" 
Drnd((Pfl]/(H[P,4]-H[J,41 ) ) .03238,0) *S 
if  P=1  and  H [P,4 ] <1 ; H[P ,4] S*S 
r.rnd(P[2]*16/9,0)*A 
if  A=0;64*A 
if  S=0;0*A 
qsb  "ARPAY-FO" 

1+1*1 
next  P 

_qSb  "FOOT" _ 


297 :  spe  5 

298:  sfg  3;dso  "BALLISTIC  TYPE  3";gsb 
299 :  ato  +11 


t 


3fiO:  "T3": 

301:  E+1*E; f or  N=1  to  Z ;rNC {E,6 1 +C [N ,7] -C [N ,7] ;next  N 
30  2  :  ret 


E+l *E; f or  N=1  to  7  ;  rNC [E ,10 ] +C [N , 11 ]-C [N,l 1 ]  ;next  N 
ret 


V.  V. 

307:  C[I,2]+R[1) ;CII,51-F[2] ;l+I-I;osb  " P-P" 

308  :  for  K=1  to  Z  ;Xr  N+C  [N  ,  1  3  ]  *C  [N ,  13  ]  ;  Yrf+C  [N ,  14  ]  +C  [N ,  14  ]  ;nex  t  h 
309:  ret 


311 : 
312: 
313: 
314: 
315: 
316: 
317: 
318: 
319: 
320: 
321: 


322: 
32  3: 
324  : 
325: 
326  : 
327: 
328  : 
329: 
330  : 
331 : 
332: 
333: 
334  : 
335: 
336  : 
337: 
338: 
JJ±L- 
340  : 
341: 
342: 
343: 
344  : 
345: 
346: 
347: 
340: 
349 : 
*339 


10C*rl;27  +  r2;13+r3;8*r4;5*r5;4+r6;2>r7jl+r8-*-r9  +  rl0*rll*rl2*rl3*rl4*rl5 
qsb  "13" 

C*rl;73-r2;20>r3rl2  +  r4;10-r5;4-r6*r7;3-r8;osb  "T3" 

0  +  r2;67*r3;25*r4;20*r5;9*rfc;7^r7;5*r8;2*r9*rl0*rll*rl2*rl3*rl4*r35 
qsb  "T3" 

0-*'r3;55^r4;21-»r5:ll  +  r6;9  +  r7;4  +  r8;3*r9-*rl0*rll^rl2  +  rl3*rl4*rl5;qsb  "13" 
0-r4;4  4-r5;13-r6;ll-r7;10-»r6;qsb  "T3” 

0  +  r5;59*r6;26  +  r7;19*r8;9  +  r9-»rl0+rll  +  rl2  +  rl3*rl4+rl5;asb  "T3" 
0-»r6;41*r7;23  +  r8;13*r9-»rl0->rll  +  rl2  +  rl3  +  rl4+r]5;asb  "T3" 

0-*r7;35  +  r8;24->r9-»rl0-*-rll-»-rl2-*-rl3-*-rl4-*-rl5;PFh  "T3" 

0*r8;4  4-»r9  +  rl0-»rll-»rl2*rl3*rl4  +  rl5:qsb  "T3  " 


100-*-rl;4  3+r2;22*r3;15  +  r4;  ll-*r5;8-*-r6;6*r7;5*r8;4*r9;3*rl0;l-*r 
2-rl2*rl3-rl4-rl5;0*F;asb  "D3" 

0*rl ;  57-*r2 ;  31-»r3;  21  +  r4  ;  1  7*c5;  ll+rf  ;  8-»r7 ;  6+rB  ;  6  +  r9  ;  4  +  rlO  ;3*rll*rl2*rl4 
4-rl5;asb  "D3" 

0-»r2;47  +  r3;32  +  r4;25-*’r5;17  +  r6;14-*-r7;ll  +  r8;9  +  r9:7*rl0;5*rll*rl2»rl4  +  rl5 
4*rl3;qsb  "03" 

0-r3;32-r4;22-r5;17-r6;13*r7;5-rl3;osb  "03" 

0*r4;25-*r5;15*r6;12  +  r7;10-*'r8;8-*’r9;6^rll;qsb  "D3" 

0*r5;32*r6;22*r7;19-*r8;17-»r9;13-*-rl0;12-*-ril;ll  +  rl2-*rl3;10-*r]4*rl5;asb  "0 

0  +  r6;25*r7;17-*rP;15-*’r9;12*rl0;ll-*-rll;10  +  rl2;9+rl3  +  rl4^rl5;oci'  "03" 

0-r7;  21*r8  ;14*r9  ;ll*rl0  ;  9 -rll -*r  12 ;  6 -r  14 -r  1 5  ; o sb  "D3" 

G*r8;  18-r9;U-*rl0  ;9-rll  ;8-rl2  +  rl3;  7-rl4-rl5;nSb  "03" 

0t9;  25-rl0  ;16*rll  ;14->rl2*rl3;  13-rl4  ;  12-»rl5;qsb  "D3" 

0-rl0 ;23*rll ; 12*rl2 ; 10- rl 3 ; ll+rl4 ; 9-rl5;qsb  "03" 

0  +  rll;16*rl2;9*rl3;8  +  rl4-*-rl5;asb  "D3" 

0-rl2;12+rl3;6-rl4  ;5-rl5;gsb  "D3" 

0-rl3;8*rl4  ;5-rl5;qsb  "D3" 

0-»rl4:  6-»rl  5  ;asb  "03" _ 

1  +  1 ~  "  - - - — “ — 

100»rl;20*r2;9-»r3;6-*r4;4-*r5;3*r6;2-»r7-*r8-»r9;l  +  rl0;0-*-rll  +  rl2  +  rl5;qsb  "WV 
0*rl;80*r2;19^r3;12*r4;8*r5;5*r6;3  +  r7;2*rl0;l»rl2*rl3  +  rl4*rl5;gsb  "WV" 
0-»r2;72-*r3;26-*-r4;15+r5;8  +  r6;7-*r7;6-*r8;5+r9;l-*-rll;qsb  "WW" 
0*r3;56*r4;20*r5;9*r6;4*rl0+rll;2-»rl2;qsb  "WV.1" 
0*r4;53*r5;12-*r6;8*r7;3*rl0*rll;4*rl2;3  +  rl3;2-»rl4-*-rl5rqsb  "VK" 

0-»r? ;  6  3-*r6  ;  20 -»r7  ;  ]  4 *r8 ;  1 2 ♦r?  ;  7-»rl  0  ♦  rl2-*>rl 3-*rl4 ♦rlS ; P*ri  1  ;qsb  "KW" 

0*r6  ;  5  3*r7  ;  19*rR  ;  1  3+ r9  ;  8  ♦rlO  ♦r  11 ;  7-*r  12  ;qsb  "WV " 

0*r7  ;  4 5*r8 ; 20 ♦ r9 ; 9 +r 1 0 *rl 1 ;a s b  "vw"  i 

0T«;36T9;8*rl2;osb  "VV"  -i 
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3  50  ;  0-rrQ;  55-tI0  ;  20-rll  -1  T*rl  2  ;  1  c*rT<  •  1  3  -  -  Id  ;  i?*r!5;ash  "»Vi" 
351:  C-*rl(i;36-*rllrl6-'-r'12;14-*r]3:n.C5i~  "v  t." 

352:  0*cll;  30-rl2  ;]  3*rl3;l  l-rl5;nsr 
353:  0-»rl2 ;  24  +  r  13 ;  10*rl4  *rl5  ;aph  "i.i  “ 

354  :  0-»rl3 ;  i  6  *c  14  ;  8-*  cl5  ;g^b  "Wk" 

355:  0*cl4;14  ,rl5;gsb  "Wfc"  _ 

Jbb:  Tinr*T  to  2;ClN,L3pX;C[N,14]*Y;gsb  "R-P" 

357:  Bfll-C{N.131 : P f 2 j -C f N . 14 1 :next  N _ 

358  :  H (  -2  „ 5  ]  -»C( 0 , 14  ]  ; H  [-2  ,6  ]  100+C  ( 0 , 1  3 1 

359:  if  not  flg3;qto  +14 _ _ _ 

360;  P$[25,36]-»A$[1,12]  ;P$[13,24]*F$[65,96]  ;  12*  J  ;qsb  ** READER" 

361:  for  N=6  to  Z;N+I 

36  2  ;  ptnd  (C  i N  ,11]  10 ,0 ) -*0 

363:  prod (C [N , 7] 10 ,0) *T 

364:  otnd (C(N .13]  /10Q  ,0)  +S 

365:  prnd  (C  (K> ,  14]  *16/90,0) -A 

366:  if  A=0;6  4-*A 

367:  if  S=0 ;0-A 

368:  if  S>99;S-100*S; I+80+I 

369:  qsb  "APRAY-12" 

370:  next  N 
371:  gsf  "FOOT" 

372:  spc  5 
373:  trk  i:lcf  5 
374:  end 
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OUTPUT  #2  IN  TRACK  1  FILL-  5 
TRACK  ]  FILR  5 


0:  sfq  3  ;c  sp  "BALLISTIC  TYPi:  2"  ;ash  "EBB" 

1:  q  to  +79 _ _ _  _ _ 

2:  " EBB" :beep ; wait  150 ;been;wa it  150  ;beeo;wait  3O0O;ret 
3:  "FOOT" :fmt  2,  "9",/ 

4:  if  flg4  ard  flq8;par  2;wtc  2,2jwrt  2.2;wtc  2,0 
5  :  fmt  b  ,  z 

6:  if  flg4  and  flq7;par  0;wtc  2,2;wrt  2,3,2,8;wtc  2,0 
7:  if  flg4;wtc  2,2;for  N=1  to  30  ;wth  2,0;next  N;wtc  2,0 

8  ;  ret  _ _ _ _ 

9:  " A+P" : fmt  b,z;nar  0 
10  :  for  G=1  tc  B 

11:  for  K= 1  to  2;pos(H$tK],A$tG,G] )-F;if  F;sfo  K;gto  +2 
12:  next  K 

13:  if  F=1  or  F=3  or  F=5  or  F=9;cfa  l,2,5,6;qto  +5 
14:  if  flol  and  fla5;cfq  l;oto  +4 

15:  if  f lql ; wtc  2,2;wrt  2,27;wtc  2,0;sfq  5;cfo  l,6;gto  +3 

16:  if  fla2  and  flq6;cfq  2;ato  +2 

17:  sfq  6;cfq  2,5;wtc  2,2;wrt  2,31;wtc  2,0 

18:  wtc  2,2;wrt  2,F-l;wtc  2,0 

19:  next  G 

20:  wtc  2,2;wrt  2,2,8;wtc  2,0 

21:  ret _ 

22:  " R*P" : /( XX +YY) ♦F  [  1  ] 

23:  atn  < Y/(X+le-9C* (X=0) ) ) +2*sgn(Y) *atn(le99)  *(X<0)-A 
24:  A+F[2] 

25:  if  A<0 ;360+A-R[2] 

26:  ret _ _ _ ________________ 

27:  "LEADER" : cfg  l,2,5,6;nar  2 

28:  if  flo4  and  flg8;fmt  3,cl2;wtc  2,2;wrt  2. 3 ,A$ [1 ,12] ;wtc  2,0 
29:  if  f la4  and  f lq7 ; 12-B  ;gsb  "A-P" 

30:  dsp  A$  [  1 , 12  ]  ;  pr  t  A${1,12] 

31:  P$[85,99]+A$(1,J] 

32:  if  fla9;gto  +4 

33:  if  flg4  and  flg8;wtc  2,2;wrt  2. 3 , A$ [ 1 , J] jwtc  2,0 
34:  if  fla4  and  f lg7 ; 12  +  E  ;osb  "  A*  F  " 

35:  qto  +3 

36:  if  flg4  and  flqf.;fmt  3,cl5;wtc  2,2;wrt  2.  3  ,  AS  [  1  ,  J]  ;  wtc  2,0 
37:  if  fla4  and  f lg7; 15+B;asb  "A+F" 

38:  dsp  A$[l,J];prt  A$[1,J] 

39:  ret 

40:  "DELETE": cfq  3;dsp  "MESSAGE  BEING  PFLFTED" ; wa it  1000  ” 

41 :  ret _ _ _ _ _ 

42:  "P-F":F[ll*cos(F(2])-X;Pfl]*sip(P[2])-Y 

4  3:  ret  _ _ _ 

44:  " STRING" : f xd  0;  str  (?*)  *BS  [1 ,5  ] 

45:  if  M<1000;B$[2,4]*BS[3,51 ;  "  0"-B$  [  2 , 2  ] 

46:  if  N<100;B$12,4]-B$13,5) ; " 0"*P$ ( 2 , 2 ] 

47:  if  F'<10;B$[2,4]-»B$  [3,5]  ;  "  0  "♦P$  (  2 , 2] 

48:  if  h< 1 ; B $ [2,4 ]*P$ [3,5] ; " 0 " ♦ L $ [2,2] 

4  9:  ret 
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5C  :  "  r  F F  '  Y “  :  I  ■».'  ,HT‘T  ’  " 

51:  E  $  l  4 , 5  ]  -  Ae  '  '  .  2)  •  A  •»  N  :  O  s  S  *  STRING" 

52:  P  $  [  3,51  +  AS  f  35!  :  S-*M  ;os  h  "STRING" 

53:  B$[3,5j*A$l'6«.R]  ;T-*-M;Osb  "STRING" 

54:  B$l2P5i^AS(9,i2)  jC^'IQSh  *  ST  PING 
55:  R$  1  2,5  i +AS  (  i  rI  6} 

56:  if  flo4  and  f  iqft  ;nar  2;fnt  4  ,  cl  6  ;  v  t  c  2,?;vrt  2- 4  (  (1  f  1€]  ;wtc  2,0 

57:  if  fia4  and  f Jo7;16+P ;esb  "A+F.’ 

58:  dsp  A? [1,16] ; pr t  AS (1,16] 

59:  ret _ _ _ _ _  ,  _ _ 

60:  " ARRAY-12” : I-^jasb  "STRING" 

61:  p$(4,5]+A$U,2]  jA+Mjqsb  “STRING 
62:  B$[4,5)-A$t'3f4]  ;S*M;asb  "STRING" 

63;  F  $  i  4  „  5  )  -*•  A$  (  5  6  )  "STRING" 

64.  B  V  i  3  >  5  ]  t  A$  j  7 . 9 )  ;  p+f  ;  g  s  5  "STRING" 

65:  B$[3,5]*A$llG,12] 

66:  if  flo4  and  flq8;par  2;frct  3,cl2;wtc  2,2;wit  2.  3  s  £$  l  I  (  12  j  ;wtc  2 , 6 
67:  if  f 1 a4  and  f lq7 ; 12-B ;asb  "A*B" 

68:  dsp  AS  [  1  ,  12  )  ;pr  t  A$  [  I  I 2  j 

69:  ret _ _ _ _ _ _ _ 

70:  "T2": 

71:  E+l*F;for  N  =  1  to  Z ; rNC [ E , 6 ] +C ( N , 8 ) *C (N , 8 j ; nex t  N 

72:  ret 

"Ti~.~nT)’2v :  ’  ‘  -  .  ‘  "  ‘  "" 

74:  E+l-lcfor  N*1  to  Z ;  rNC  { F- ,  1 0  ]  +C  (  n  i  2  j -C  IN  ,12  ]  ;next  N 

75;  ret _ _ _ _ _ _  _ _ _ _ _ 

76  :  *'  wd’ : 

77:  G  j  i  ,  2  ]  +h  { 1  j  ;  C  f  i  f5}-R{2]  ;1  +  1-I;as>  *p*p" 

7ft:  for  V*1  tr  Z  ?Xr N+C  }M  ,1 3}  *C  [N  ,  13 }  ;  Yr  N-t-C  f N  ,  14 ]  +C (N ,  1 4 }  ; next  N 

79;  ret _ _ _ _ _  _ _ _  _ _ _ _ _ _ 

80:  1 0  0  C  (  0  -  €  ]  ♦C  [  0  ,,  8  ] 

81  :  100-»rl;63*r2;37-»r3;2c'-»r4j20-*'r5;13*r6;  10*r7;9-*-rS;7  +  r9;5*rl0*rll-»rl3*rl4 

82  '•  4-rl2;6>rl5;0-»F;ash  “?2" 

83:  0*rl;37  +  r2;37>r3;3C*r4;24+r5;19-»r6;14  +  r7}  10-*r8  ;  9*r9  ;  8*rl0 
o4:  6*r  11  *r  12-»  rl  3  »  rl4 -*  rl  5  ;qsh  "T2" 

85:  0»r2j26-»r3;35*r4;30*r5;24-»r6;20  +  r7;17*r8;14>r9;12  +  rl0fl0  +  rll+rl2-»rl3*rl4 
86:  10->rl5;asb  "T2" 

67:  0-»r3;10*r4;18-»r5*r6;16*r7;15*r8;l  3»r5;  10*rl0;8-*rl2 
68:  9*cll*rl3*rl4*rl5;qsb  "T2" 

89:  0-»r4  •fa*r5;14*r6*r7;13+r8;12*r9;lC^rl0;8->rll*rl3-»rl4^rl5;asb  "T?" 

90  :  0-r5,  ’  2*r6  ;  1  9*r7  ;  20-r8  ;  19-r9  ;  1 7-r  10  ;  15- r  11 ;  14-rl2  ;  16-rrl  3^14  *rl5;asb  "T2" 
91:  0-*r6;7»r7;12  +  r8;15+r9;14-»rl0;13*rll*rl2;12>rl3  +  rl4+rl5;gsb  "12" 

92:  0-*r7;4*r8;8-*r9;10^rl0;12*rll;ll*rl2;13->rl3  +  rl4+rl5;qsb  "T2" 

93:  O-r8;3-r9?8*rl0;10-rll-rl2;ll->-rl3-rrl4-rl5;qsb  "T2" 

94:  0»r9 ;  6-»r  10  ;  1  2-»rl  1 ;  16-»rl.2  ;  10*rl  3->rl4 -»r  1  5 :asb  ’'T211 _ 

95:  100C10,101-C(0,12] 

96:  100  ♦  r  1 ;  8  3-»r  2  ;  37-*r3 ;  25+  r4 ;  20 -*t  5 ;  1  3^  1 6  ;  10*r  7  ;  9-*-r8  ;  7-*r9  ;  5*  rlO  ;  4  +  r  1 1  *rl2 
97.  3*ri3+rl4;2»il5;0*E;qsb  "D2" 

98:  0*rl;37*r2j37*r3;30*r4;24*r5;19^ric;14jr7?10»r8;9-*'r9;8*rl0;6+rll»rl2 
99:  5-rl3*rl4 *rl5 rqsb  "D2" 
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100  :  0-r2;26-r3;35  +  r4  ;30  +  r5;2^-rf  ;?.0  +  r7;  17-rR  ;14-r9;12*rl0;l0*rll  ;«*rl2 
101:  8-rl3; 6*rl4 +rl 5 ;osh  "02" 

102:  0-r3; 10 -r4 ;18-r5-r6 ; 1 6-r7 ; 1 5*r8 ;1 3*r9 ; 10-rl 0 ; 8*rl 1 ♦ r] 2 
103:  7*rl4-rl5;asb  "C2" 

.104:  0  +  r4  •  f:  *r  5  ;  1  4  -*-r6>  r7  ;  1 3*  r8 ;  12  ♦  rO  ;  6  *r  ]  3 ;  5-*-  r  15  ;ash  "n2" 

10  5:  0*r5; 12  +  r6 ; 19-r7 ; 2C*r8 ; 1 9-r9 ; 17  +  rlO ; 1 5*rll ; 13-r 12 ; 1 2* rl 3 ; 1 1  * r 14  - r 1 5 
106:  osb  "02" 


107:  0-r6;7+r7;12*r8;15-r9;14*rl0;13-rll;12>rl2;lJ -r 1 3 ; 1 0 ♦ rl4 *r 1 5 ; n sh  "r2" 
108:  G-*r7  ;  4  *i  8  ;  8-*-r9  ;  10  ♦  r  10  ♦  r  11  *  r  12  ♦r  13 ;  ?♦  r  14  ;  8*r  15  ;  o  sb  "D2" 

109:  0-r8;3-r9;8-rl0;10-rll;8*rl2+rl3-rl4-rl5;qst  "C2" 

110:  0-r9?6+rl0;12+rll;13*rl2*rl3+rl4-rl5;qsb  "D2" 

111:  0-rl0  ;4^rll;7-rl2;9-rl3;10*rl4-rl5;asb  "D2*‘ 

112:  0-rll;  2-rl2  ;5-rl3;6-rl4  ;7-rl5;qsb  "D2" 

113:  0-rl2;2-rl3;4-r14;5-rl5;asb  " D2" 

114:  0-rl3;  l-r!4  ;  3-rl5;gsh  ,,D2'‘ _ 

115:  for  N= 1  to  Z  ;0-*C [N , 13 ] ♦C (N , 14 ] ; next  N 

TT6:"1-1 - 

117:  100-*rl;50-»r2;29-*-r3;18-*r4;13-»r5;8-*'r6;7-*-r7;4-*r8-*-r9:3*rlO-*-rl2;l-*rl5 
118:  2-»rll-*rl3-*rl4  ;qsb  "KW 

119:  0-*rl;50-»r2;33-*-r3;23*r4;18*r5;12  +  r6;8->r7*r8;6*r9;3-*-rl5 
120:  4*rl0*rll*rl2+rl3+rl4 ;gsb  "WK" 

121:  0-r2;38-r3;39-r4;31*r5; 22-r6;16-r7; 13-r8 ; ll»r9 ; 8-r 10 ; 6 * rl 1 ; 7 -r 1 2 
122:  5-rl3-rl4-rl5;osh  "KW 

123:  0-*r3;20*r4;27-»-r5;20-»r6;15-»r7;12-»r8;10-»r9;7  +  rll;6*rl3*r14;4-»r]8;nsb  "KW 
124:  C  +  r4;ll-»r5;19-*r6;16-»r7;13*r8;6  +  rll;4-*-rl4;5-*-rl5?osh  " KW 
125:  0-*’r5;19-»r6;27  +  r7;24  +  r8;21*r9;16-»rl0;13»rll;12*rl2;ll  +  rl3r9-»rl/,-»rl5 
126:  ash  "KW" 

127:  0*r6;  11 -r7;  18  +  r8  ;  20 - r9  ;  1 5-rl0  ;  1 1 -r  12 ;  10-rl3  ;asb  "KW 
128;  G  +  r7;8->r8;12*r9;14  +  rl0;12  +  r]l;10-*-rl2;9^rl3;8*rl5;opb  "V W 
129:  C*r8;6*r9;l3*rl0;ll-*'rll;8*rl2*rl3*rl4;7*rl5;aKh  "KW 
130;  G-*-r9;ll*r]0;18  +  rll;15-*'rl2;l4-*rl3;13-*rl4;12->-r]5;cisb  "KW 
131:  0*r  10  ;  8  +  rll  ;  10 *r  1  2  ;  1 1-» rl3+ rl4  ;  10 -»r  15  ;q sb  "KW 
132:  0-*rll ;  6-*rl2  ;  8+rl  3-*  rl4  +  rl5  ;a  sb  "WK" 

133:  0-*-rl  2  ;  5->r  13  ;  6  +  r  14  ;  8  +  rl5  ;a  sb  "KW" 

134:  0-*rl  3 ;  5-»r  14  ;  6-*-r  15  ;a  sb  "KW" 

135:  0-rl4;4-rl5;asb  "KW" _ 

136:  for  M  =  1  to  Z  ;C  [N  ,  1  31  -»X;  C  [  N  ,  14  ]  -*-Y;a  sb  "  P  ♦  P  " 

137:  Mll-CfN  .131  ;  F  f  21  ♦CfM.141 ;next  1.  _ 

136:  H 1-2,5] *C[ 0,14] ; H [ -2 , 6 ] 100-C[0,13] 

139:  if  not  fla3;gtc  +14 

140 :  P$ [37,48] -A? [1 ,12]  ;P$[13,24] +P$[ 8  5,96] ;12-J ;rsb  " HFAPF  P" 

TTTTTor  ^=0  to  7  jN+1 - ; - 

142 :  ornd (C[M ,12] 10 ,0) *C 
143:  rrn^  (C!N,P]  10,0) *T 
1^4:  nrnd  (C  [!i ,  13 1 /10  0 ,0 ) +S 
145:  ornd  (Cff.’,l^]  *16/90,0)  +a 
146:  if  A=0  ;  6 4-»  P 
147:  if  5  =  f i ;  ()*  A 
l^P:  if  S>°9; P-1  00+ 5 ;  1+ 00  +  I 
140.  nsf  "/nPAY-1?" 
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